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Este libro presenta 18 estupendos programas completos 
que aprovechan con ventaja las posibilidades 
gráficas y sonoras del ZX-SPECTRUM, 
así como la práctica totalidad de la memoria disponible 
en el modelo de 16K por lo que, por supuesto, 
también funcionan en el de 48K. 


Todos los programas están escritos en BASIC, 
para que el usuario pueda entenderlos mejor, modificarlos 
y mejorarlos a su gusto y, en suma, practicar con ellos. 


El autor no se limita, como en otros libros 
de temática parecida, a dar simplemente los listados 
de los programas, sino que además, y esto es lo que 
le diferencia principalmente del resto, 
ofrece completa y exhaustiva información sobre 
el planteamiento y la realización de cada programa: 
lista de variables, estructura, funcionamiento, comentarios 
y sugerencias. 


Este hecho lo hace particularmente interesante para todos 
los usuarios que no quieren simplemente limitarse 
a transcribir listados, sino que además quieren aprender 
a crear sus propios programas de juegos. 


Josep-Oriol Tomas i Huyn-Quan-Chiéu 


INTRODUCCION 


Partiendo de las limitaciones propias del lenguaje BASIC, el autor de la presente obra, 
ha intentado presentar un abanico lo más amplio posible de juegos para ordenador Spe:.- 
trum, de esta manera nos encontramos programas sencillos y cortos (como el SIMO), 
de lógica sencilla y trabajosa representación gráfica (BLACK JACK), o de nivel profe- 
sional (los 3 laberintos). 

El objetivo de la obra, evidentemente, no es sólo suministrar los juegos al lector para 
que éste los teclee y disfrute de ellos, sino intentar hacer partícipe al lector de su elabo- 
ración, para ello cada juego va acompañado de unas detalladas explicaciones e, inclu- 
so, de algunas sugerencias que pueden estimular al lector avanzado a modificar los 
juegos a su gusto. 

De todos los juegos, cinco se presentan desdoblados en dos (A y B); esto ha sido 
necesario por necesidades de memoria (caso de 16 K), en uno, incluso, se ha tenido 
que hacer un CLEAR y robarle memoria a los gráficos definibles por el usuario. El fun- 
cionamiento de estos juegos dobles es bien sencillo: primero se carga el A y al ejecu- 
tarse éste, automáticamente deja al ordenador en condiciones de cargar el B (entién- 
dase cargar desde la cinta donde, previamente, se han grabado por separado y dejan- 
do, entre ambos, un cierto lapso de tiempo para que se ejecute el A, el cual no es más 
que una presentación y una carga de gráficos definibles por el usuario). 

Debido a la necesidad de ofrecer los listados con una calidad adecuada se han teni- 
do que representar los caracteres gráficos del Spectrum por el dígito que en modo nor- 
mal representan sus mismas teclas, con la precaución de poner una g al principio para 
que el lector sepa que se trata de los caracteres gráficos, aquellos que vayan en modo 
invertido irán precedidos de una c. 

Y un último consejo a los menos «duchos en la materia»: empezar por los programas 
más cortos. 


SOLITARIO 


MEMORIA OCUPADA: 3835 bytes 


VARIABLES 


Tecla apretada. Variable de carga (READ) de los gráficos definibles 
por el usuario y de las letras representantes de las coordenadas verti- 
cales, que se dibujan en los laterales del tablero. 

Variable de los bucles FOR NEXT 

Variable de los bucles FOR NEXT 

Indica si las coordenadas seleccionadas por el jugador son las prime- 
ras O las segundas. 

Número de columna seleccionado por el jugador. 

Letra representante de la coordenada vertical de la fila seleccionada 
por el jugador. 

Coordenada vertical de la fila seleccionada por el jugador. 

Indica si las coordenadas en análisis pertenecen a la casilla de la ficha 
que se quiere mover, o de la casilla en la que se quiere colocar la ficha. 
Número de fila (coordenada horizontal) de la ficha seleccionada por 
el jugador. 

Número de columna (coordenada vertical) de la ficha seleccionada 
por el jugador. 

Número de fichas “comidas”. 
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GRAFICOS 


290 “EP” “HG” 

320 “AB” “DG” 

2010 “EF” “HG” 

2020 “EF” “HG” 

2040 “EF” “HG” 

2050 “AB” “DC” “AB” “DC” “EF” “HG” 
2080 “EF” “HG” 
3000 “AB” “DC” “AB” “DC” “EF” “HG” 


ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

20 Carga de los gráficos definibles por el usuario. 

100 Gráficos definibles por el usario. 

200 Representación gráfica del escenario de juego. 

1000 Primera parte del ciclo de juego, entrada de datos por parte del juga- 
dor. 


2000 Segunda parte del ciclo de juego, análisis y representación gráfica de 
los resultados. 

5000 Subrutina de lectura del teclado. 

5100 Subrutina de final de partida. 


COMENTARIO 


Juego, de muy difícil solución, consistente en quedarse con una sola ficha. 
Para hacer desaparecer las fichas (comer) se ha de saltar, con otra ficha, por 
encima de la ficha que se quiere comer, como es lógico, sólo se puede saltar 
una ficha de una vez y la casilla a la que se salta ha de estar vacía. 

En vez de llevar, por un lado, el control de la gestión del juego y, por otro 
lado, el control de la correspondiente gestión de pantalla, se han unificado las 
dos funciones en una; control de juego y de pantalla a través de un control 
de pantalla mediante atributos (ATTR). 

Lo único que se sale del sistema antes expuesto es el control de final de 
partida que se lleva mediante la variable ¡ a la que se le suma uno cada vez 
que se come una ficha. 
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SUGERENCIA 


Una forma de doblar la dificultad de este juego, y su duración, es hacer que, 
una vez se haya ganado, el jugador tenga que volver a llenar el tablero de fi- 
chas haciendo los movimientos a la inversa, o sea, que se genere una ficha 
en aquella casilla por encima de la cual se salte. 
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SOLITARIO 


1 GO TO 20: REM SOLITARIO. 8 


ENFE 

10 BORDER 4: PAPER 3: INK O: R 
UN 

20 FOR n=0 TO 63 

30 READ q i 

40 POKE USR "a"+n,gq 

50 NEXT n 

100 DATA 255,128,128,128,128,12 
8,128,128 


110 DATA 255,1,1.1,1,1,151 

120 DATA 1,1,1,1,1,1,1,255 

130 DATA 128,128,128,128,128,12 
8,128,255 

140 DATA 255,128,128,BIN 100000 
11,BIN 10001111,BIN 10001111,BIN 

10011111,BIN 10011111 

150 DATA 255,1,1,BIN 11000001,B 
IN 11110001,BIN 11110001,BIN 111 
11001,BIN 11111001 

160 DATA BIN 11111001,BIN 11111 
001,BIN 11110001,BIN 11110001,BI 
N 11000001,1,1,255 

170 DATA BIN 10011111,BIN 10011 
111,BIN 10001111,BIN 10001111,BI 
N 10000011,128,128,255 

210 PRINT AT 2,105 INK 75"1 2 3 
4 5 6 7"jAT 19,105"1 23456 
¿gr 

220 FOR n=5 TO 17 STEP 2 
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230 READ qs 

240 PRINT AT n,7; INK 75gq$;4T n 
,2450q5$ 

250 NEXT n 

260 DATA "a”,"b","c","d”","e","f 
"gr 

270 FOR n=4 TO 17 STEP 2 

280 FOR m=9 TO 22 STEP 2 

290 BEEP 1/15,4*(n/2)+m: PRINT 
AT n,m; PAPER 6;"EF"5AT n+1,m;”"H 


300 NEXT m 
310 NEXT n 
320 BEEP 1/2,0: PRINT AT 10,15; 
INK 13 PAPER 6;"AB";3AT 11,15;"D 


330 FOR n=0 TO 21 
340 PRINT AT n,0; PAPER 4;" 
"sAT n,275” " 
350 NEXT n 
500 LET i=0: LET r=5: LET w$="a 
": LET w=1: LET a=5: LET b=7: LE 
T c=9: LET d=11: LET e=13: LET £ 
=135: LET g=17 
1000 LET t=0: 
1010 PAPER 3: LET q=0: PRINT AT 
2,8+2X%w3 INK 75w5AT r,7;w$S 
1020 GO SUB 5000 
1030 IF q<>1 THEN 1F q$="1" OR 
g$="2" OR q$="3" OR q$="4" OR q 
="5" OR q$="6" OR q$="7" THEN L 
ET w=VAL q$: PRINT AT 2,8+2Xkw; F 
LASH 153 INK 75w: LET q=q+1 
1040 IF g<2 THEN  1F g$="a” OR q 
="b" OR qg$="c" OR g$="d" OR q$= 
"e" OR q$="+" OR q$="9" THEN LE 
T r=VAL q$: LET wt=q$: PRINT AT 
r,75 FLASH 13 INK 75q%: LET q=q+ 
2 
1050 IF q<>3 THEN GO TO 1020 
1060 PAPER 6 
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2000 IF ATTR (r,38+2%Xw)=49-t THEN 
GO TO 1000+(10%t) 

2010 IF t=0 THEN LET y=r: LET u 

=4: LET t=1: PRINT AT r-1,7+2%w; 
FLASH 1j3"EF"5AT r,7+2Xw5"HG": 6 

O TO 1010 

2020 IF r<>y AND w<>u OR r=y AND 
w=u THEM  PRINT AT y-1,7+2*ku3" 
"5AT y,7+2Xu5"HG": GO TO 1000 

2030 IF w<>»u THEN GO TO 2080 

2040 IF ABS (r-y)<>4 OR ATTR (r- 
(1/2)X%tr-y),7+2%w)=49 THEN PRIN 

T AT y-1,7+2ku;3"EF"5AT y,7+2%w;" 

HG": GO TO 1000 

ZO50 BEEP 1/5,50: PRINT AT y-1,7 

+2Xu5 INK 15"AB"3AT y,7+2*ku;z "DC" 
SATOr-1-(1/2)X(r-y),7+2Xw5"AB";A 

T r-(1/2)X%Xtr-y),7+2Xw5 "DC"; AT r- 
1,7+2Xw5 INK O;"EF";5AT r,7+2Xw3" 

HG" 

2060 LET i=i+1: IF i=47 THEN GO 
TO 5100 

2070 GO TO 1000 

2080 IF ABS (w-u)<>2 OR ATTR (r, 

7+2X (Ww-1/2%(w-u)))=49 THEN PRIN 

T AT y-1,7+2kuj"EF"5AT y,7+2kuj" 

HG": GO TO 1000 

2090 BEEP 1/5,0: PRINT AT y-1,7+ 

2%uj INK 15"AB";AT y,7+2Xuj"DC"; 

AT r-1,7+2X*(w-1/2*%*(w-u))5"”AB"5AT 
Pr 742 (Wm-1/2%(w-Uu))5 "DC" ¡AT r-1 
¿7+2%w5 INK 0O5"EF"jAT r,7+2X%w;"H 

G" 

2100 LET is=i+1: 1F i=47 THEN GO 
TO 5100 

2110 GO TO 1000 

5000 IF INKEY$<>"" THEN GO TO 5 

000 

5010 IF INKEY$="" THEN GO TO 50 
10 

5020 LET q6=INKEYS$: BEEP 1/8,20 
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5030 IF q$<>"1" AND q$<>"2" AND 
q$<>"3" AND q$<>"4"” AND q$<>"5" 
AND q$<>"6” AND q$<>"7" AND q$<> 
"a" AND q$<>"b” AND q$<>"c” AND 
q$<>"d" AND q$<>"e"” AND q$<>"*" 
AND q$<>"3" THEN GO TO 5000 
5040 RETURN 

s100 CLS 

510 FOR n=1 TO 11 

5120 READ q$ 

5130 FOR m=30 TO 9+n STEP -1 
5140 BEEP 1/50,40: PRINT AT 10,m 
5 PAPER 33 INK 65q$;" ” 

5150 NEXT m 

5160 BEEP 1/3,10%(n/3) 

5170 NEXT n 

5180 DATA "F","E","L","1","C","I 
7 sa 0 "An "De. "ES, ” Go» 

5190 PAUSE 1: PAUSE O: GO TO 10 
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*=0osga 


3300 VLOUODO”"Ex< 
Ly 


BARON ROJO 


MEMORIA OCUPADA: 5570 bytes 


VARIABLES 


Variable de carga (READ) de gráficos definibles por el usuario 
Coordenada vertical del avión enemigo. 

Coordenada horizontal del avión enemigo. 

Indice de cambio de dibujo del avión enemigo. 

Variable indicadora de si los disparos del avión enemigo se han de 
dibujar o de borrar. ] 

Avión enemigo horizontal con las ruedas en la parte inferior. 
Avión enemigo horizontal con las ruedas en la parte superior. 
Avión enemigo vertical con las ruedas en la parte derecha. 

Avión enemigo vertical con las ruedas en la parte izquierda. 
Carácter de la tecla apretada. 

Dirección del avión enemigo. 

Número de aviones derribados. 

Corrección movimiento coordenada vertical del avión enemigo. 
Corrección movimiento coordenada horizontal del avión enemigo. 
Variable de los bucles FOR NEXT. 

Variable de los bucles FOR NEXT. 
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GRAFICOS 


1080 de 
1090 EA 
1110 “KKK K KK" "LEC" “EEEL" 
8000 “AB” 
8010 GD- 
8030 “EE 
8040 de A y 
ESTRUCTURA DEL PROGRAMA 
10 Inicio del programa y selección de colores. 
20 Carga de los gráficos definibles por el usuario. 
100 Gráficos definibles por el usuario. 


1000 Representación gráfica del escenario de juego. 

1500 Valoración de las variables. 

2000 Ciclo de juego. 

8000  Subrutina de dibujo-borrado del ón enemigo. 

8100 Subrutina de disparo del jugador, análisis y avión enemigo tocado. 
8200 Subrutina de cambio de dibujo del avión enemigo. 

8300 Subrutina de disparo de avión enemigo, análisis y jugador tocado. 
8400 Subrutina de cálculo de los movimientos. 


COMENTARIO 


Este juego coloca al jugador en el interior de un avión de la primera guerra 
mundial y hace que se enfrente contra otro avión. El control de nuestro avión 
lo ejercitamos a través de las teclas 5, 6, 7 y 8, teniendo que pulsar el Y para 
poder disparar. 

Es de destacar que el ciclo de juego de este programa se ha hecho por el 
sistema de subrutinas. Los programas por subrutinas consisten en un progra- 
ma principal corto que consta, casi exclusivamente de llamadas a subrutinas. 

Salvo aquellas partes en las que era indispensable trabajar en OVER Q, co- 
mo la representación gráfica del escenario de juego o la representación gráfica 
de los aviones derribados, todo el programa transcurre bajo OVER 1. En los 
programas de los juegos de acción, trabajar en OVER 1 tiene la ventaja de no 
tener que preocuparse mucho por la posible interferencia entre distintos dibu- 
jos, o entre “disparos” y dibujos, o entre dibujos móviles y dibujos fijos (cuyo 
borrado sería desastroso pues no se regeneran como los móviles). Trabajar 
en OVER 1 también reporta la ventaja de no tener que acompañar los dibujos 
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móviles del correspondiente borrado de sus coordenadas anteriores, basta con 
repetir el dibujo en las coordenadas antiguas para que se borre. 

Encadenando lo que acabamos de decir con los comentarios directos al lis- 
tado destacaremos cómo la misma subrutina (8000) sirve tanto para dibujo co- 
mo para borrado del avión enemigo, la única diferencia estriba en las coorde- 
nadas que se le dan, como es lógico también necesita saber si ha de dibujar, 
o borrar, el avión horizontal o vertical, mirando hacia un lado, o hacia el otro. 
Este cambio de forma de representar el avión, que no de coordenadas, se lle- 
va a cabo de forma aleatoria y mediante la subrutina 82M. 


SUGERENCIA 


Para aumentar el efecto de realismo que otorga la visión en perspectiva, se 
ha hecho que los «disparos» del avión enemigo se abran un poco, ahora bien, 
para que este efecto cobrase toda su brillantez, dicha apertura tendría que ser 
mayor, y, por tanto, estar en función de la distancia a los extremos de la pan- 
talla. 
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BARON ROJO 


1 GO TO 20: REM BARON ROJO. $ 


ENFE 
10 PAPER 5: INK O: BORDER O: R 
UN 
20 FOR n=0 TO 95 
30 READ q 
40 POKE USR "a”"+n,q 
50 NEXT n 


100 DATA 255,BIN O01000000,BIN O 
1000001,BIN O1001111,BIN 0100001 
1,255,BIN 00000010,BIN 00000100 

110 DATA 255,BIN 00000010,BIN 1 
0000010,BIN 11110010,BIN 1100001 
0,255,BIN 01000000,BIN 00100000 

120 DATA BIN 00000100,BIN 00000 
010,255,BIN O1000011,BIN O100111 
:,BIN (01000001,BIN 01000000,255 

130 DATA BIN 00100000,BIN 01000 
000,255,BIN 11000010,BIN 1111001 
0,BIN 10000010,BIN 00000010,255 

1%0 DATA BIN 10111100,BIN 10011 
110,BIN 10010101,BIN 10010100,BI1 
N 10000100,BIN 10000100,BIN 1111 
1100.BIN 10000100 

150 DATA BIN 10000100,BIN 11111 
100,BIN 10000100,BIN 10000100,B1 
N 10010100,BIN 10010101,BIN 1001 
1110,BIN 10111100 

160 DATA BIN OO111101,BIN O1111 
001,BIN 10101001,BIN 00101001,BI 
N 00100001,BIN 00100001,BIN 0011 
1111,BIN 00100001 
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179 DATA BIN 00100001,BIN 00111 
111,BIN 00100001,BIN 00100001,B1 
N O0101001,BIN 10101001,BIN O111 
1001,BIN OO111101 

180 DATA O,BIN 00000001,BIN 000 
00011,BIN 00000111,BIN 00001111, 
BIN 00011111,BIN OO111111,BIN O1 
111111 

190 DATA O,BIN 10000000,BIN 110 
00000,BIN 11100000,BIN 11110000, 
BIN 11111000,BIN 11111100,BIN 11 
LITIO 

200 DATA BIN 00011000,BIN 00111 
100,BIN O0111100,BIN 00011000,B1 
N O0011000,BIN O0011000,BIN 0011 
1100,BIN 00011000 

210 DATA 255,BIN 11000011,BIN 1 
5000101,BIN 10001001,BINM 1000000 
¡,BIN 10000001,BIN 11020011,255 
506 OVER O | 

1900 FOR n=16 TO 21 
1010 PRINT AT n,8; PAPER 2;” 


1020 NEXT n 

1030 FOR n=S5: TO O STEP -1 

10940 FOR m=S5 TO n STEP -1 

1050 PRINT AT 21-n,m+23 INK 3;"39 
ce” 

1060 PRINT AT 21-n,29-m5 INK 3;” 
gcae” 

1070 NEXT m 

1080 PRINT AT 21-n,m+35 INK 35"1I 
1090 PRINT AT 21-n,28-m3 INK 33” 
J 1) ' 

1100 NEXT n 

1110 PRINT AT 20,9; PAPER 25"K K 
K KK K"j3AT 17,193 INK 23 PA 
PER 753"LLLL”;AT 19,1495”"LLLL” 
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1120 CIRCLE 91,32,12: CIRCLE 163 

132,12: PLOT 91,32: DRAW 10,0: P 

LOT 163,32: DRAW 0,10 

1130 INK 3 

1140 PLOT 15,0: DRAW 48,64: DRAW 
90,-16 

1150 PLOT 240,0: DRAW -48,64: DR 

AW 0,-16 

1160 INK 1 

1170 PLOT 64,64: DRAW 127,0,-2 
1180 PLOT 127,95: DRAW O,-16: PL 

OT 119,87: DRAW 16,0 

1190 OVER 1 

1200 LET a=0 

1210 GO TO 8190 

1500 LET p=0: LET t=0: LET y=0: 

LET u=0: LET i=0: LET 0=0: LET w 

=2+ INT (RNDX6): LET e=1+INT (RND 

29) 

2000 LET q$=INKEYS$ 

Z010 IF INT (RNDX10)=0 THEN LET 
p=5+ INT (RNDX4) 

2020 GO SUB 8400 

2030 GO SUB 8200 

2040 IF q$="0" THEN GO SUB 8100 
2050 IF INT (RNDX10)=0 THEN GO 
SUB 8300 

2060 GO TO 2000 

8000 IF y<>0 THEN PRINT AT w,e; 
"AB": LET y=y-1 

3010 IF u<>O THEN PRINT AT w,e; 
"CD": LET u=u-1 

8020 IF i<>O THEN PRINT AT w,e; 
"E"¡AT w-1,ej"F": LET i=i-1 

8030 IF o0<>0 THEN PRINT AT w,e; 
"G";¡AT w-1,e5"H": LET o=0-1 

8040 RETURN 

8100 PLOT 0,24: DRAW 128,63: PLO 
T 255,24: DRAW -128,63: BEEP 1/4 
07,10% 
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38110 PLOT 0,24: DRAW 128,63: PLO 

T 255,24: DRAW -128,63 

3120 IF w<¿10 OR w>11 OR e<x15 OR 

e>1ó6 THEN RETURN 

3130 BEEP 1/5,0: FOR n=1 TO 4 

3140 GO SUB 8000 

38150 LET w=w+1: LET y=2: GO SUB 

3000 

3160 NEXT n 

31706 60 SUB 8000 

31809 BEEP 1/8,-=20:3: BEEP. 1/S,-10<: 
BEEP 1/8,-20: BEEP 1/3,-10: LET 
a=at+l 

8190 PRINT AT 0,55 OVER Oj;"AVION 

ES DERRIBADOS "ja: 50 TO 1500 

8200 LET r=INT (RNDX31) j 

8210 IF r=0 THEN GO SUB 8000: L 

ET y=2: GO SUB 8000 

8220 IF r=10 THEN GO SUB 8000: 

LET u=2: GO SUB 8000 

8230 IF r=20 THEN GO SUB 3000: 

LET i=2: GO SUB 8000 

8240 IF r=30 THEN GO SUB 8000: 

LET o=2: GO SUB 8000 

8250 RETURN 

33900 LET -t=1 

3310 IF i<>0 THEN PLOT ex8+8,17 

2-WwX3: DRAW 255- (e*X83+8),-8: PLOT 
eXx31+8,179-wX*3: DRAW 255- (eX3+3) 

18: IF t=1 THEN BEEP 1/50,-10: 

LET t=0: GO TO 8310 

8320 IF o<c>50 THEN PLOT ex8-1,17 

2-w4X3: DRAW -eXx3+1,-8: PLOT exXg- 

1,179-wX8: DRAW -exS3+1,38: IF t=1 
THEN BEEP 1/50,-10: LET t=0: G 

o TO 8320 

8330 IF u<>0 THEN PLOT ex8+49,1?7 

S-WXS: DRAW -8,wXx8: PLOT exX8g+10, 

175-wX3: DRAW 383,wX28: IF t=1. THEN 
BEEP 1/50,-10: LET t=0: GO TO 

8330 
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83402 IF y<>0 THEN PLOT eXx8+4,16 

7-411X8: DRAW -8,-103+wXx8: PLOT ex 

S+11,157-wX3: DRAW 8,-103+wX*3: I 

E t=1 THEN BEEP 1/50,-10: LET t 

GO TO €340 

: IF y=0 OR e<x8 OR e>23 THEN 

ón 

FAUSE 1: PAUSE 20 

FOR n=S0 TO -50 STEP -5 

PEEP 1/8,r: NEXT n 

PRINT AT 5,125 FLASH 15 OVE 

FAPER 2; “INK 63" R.I.P.”": P 

1: PAUSE O: CLS : GO TO 500 

LET d=0: LET s=0 

IF y=1 THEN LET 

IF u=1 THEN LET 

JF i=1 THEN LET 

IF o=1 THEN LET o= 

IF g$="5"” THEN LET d=-1 

IF q$="6" THEN LET s=+1 

IF q$=">?" THEN LET s=-1 

1F q$="8"” THEN LET d=+1 

8470 IF p=S THEN LET d=d-1 

8550 IF p=% THEN LET s=5s+1 

25109 IF p=”? THEN LET s=s-1 

3520 IF p=3S THEN LET d=d+1 

E£530 IF w+(s)<2 OR w+(s)>19 THEN 
LET == 

2540 IF et+t(íd)<1 OR e+(d)>29 THEN 
LET 4=0G 

35530 GU SUB 8000: LET w=w+(s): L 

ET e=e*+íd): GO TO 8000 
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233370 QU VTDO "EX *-=0S._0 
Uy 


OBSTACULOS 


MEMORIA OCUPADA: 6362 bytes 
VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Coordenada vertical del jugador. 

Coordenada horizontal del jugador. 

Número de ciclos de juegos efectuados. 

Coordenada horizontal del primer agujero del piso. 

Coordenada horizontal del segundo agujero del piso. 
Coordenada horizontal del primer obstáculo. 

Coordenada horizontal del segundo obstáculo. 

Coordenada horizontal del agujero del techo. 

Número aleatorio entre uno y veintinueve. 

Número de ciclos de juego de penalización (caída) o de salto. 
Dirección del jugador, 0 hacia la izquierda y 1 hacia la derecha. 
Indice de estado del jugador (caída o no caída). 

Dirección del piso, 0 hacia la izquierda y 1 hacia la derecha. 
Dirección del techo, 0 hacia la izquierda y 1 hacia la derecha. 
Puntuación. 

Variable de los bucles FOR NEXT. 

Variable de los bucles FOR NEXT. 

Carácter de la tecla apretada. 
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1040 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
4020 
4030 
9120 
9140 


GRAFICOS 


“g” PRE 

“ps, “pr 2D 

“GH” 

“EF” 

2D" E 

“pg” ep" 

py E a “a” 

€ ” “pp 

44 A” “gg” 

“N” “MM” el NS 
£ 

da “Ko yg 

Cayo 

py 


ESTRUCTURA DEL PROGRAMA 


Inicio del programa y selección de colores. 

Carga de los gráficos definibles por el usuario. 

Gráficos definibles por el usuario y valoración de las variables corres- 
pondientes al primer dibujo de pantalla desde que se inicia el programa. 
Representación gráfica del escenario de juego y valoración del resto 
de las variables. i 

Zona del ciclo de juego correspondiente al control del jugador. 
Zona del ciclo de juego correspondiente al ordenador, dibujo de los 
obstáculos. 

Zona del ciclo de juego correspondiente al ordenador, cálculo del mo- 
vimiento de los obstáculos. 

Zona del ciclo de juego correspondiente al ordenador, análisis del “*tro- 
piezo” y salida. 

Representación gráfica del tiempo y de los puntos. 

Subrutina del cálculo aleatorio de p. 

Subrutina de caída. 

Subrutina del dibujado de los pisos. 


COMENTARIO 


El juego consiste en ir subiendo pisos para, al llegar al último, salir por don- 
de indica la flecha. Cada piso que se sube son 100 puntos, y por cada salida 
de pantalla que hagamos sumaremos 500 puntos. 

Ahora bien, no es tan fácil como podría parecer, pues en todos los pisos 
hay unos agujeros que hay que saltar porque, si no, caeremos por ellos y per- 
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maneceremos inconscientes por unos segundos, segundos que nos pueden 
hacer caer por otro agujero de este otro piso al que hemos caído y, así, sucesi- 
vamente hasta llagar al piso mas bajo otra vez. 

De todas formas no todo son agujeros, pues también hay unos obstáculos 
que hay que saltar, salvo el caso de querer correr la misma suerte que con 
los agujeros. 

Para poder salvar con soltura toda esta serie de impedimentos tendremos 
que hechar mano de las teclas 5, 6, 7 y 8 de forma que pulsando la 5 giremos 
o adelantemos a la izquierda, pulsando la 6 saltemos obstáculos y agujeros, 
pulsando la 7 subamos, por el correspondiente agujero del techo, al piso su- 
perior y, por último, pulsando la 8, giremos o adelantemos hacia la derecha. 

A diferencia de la mayoría de los juegos aquí presentados, la representación 
gráfica del personaje que controla el jugador es de bastante calidad y, ade- 
más, presenta movimiento de piernas y brazos. Esto se ha podido hacer por- 
que dicho personaje está integrado por dos gráficos definibles en vez de uno, 
como es habitual. El efecto de movimiento de piernas se consigue, natural- 
mente, sustituyendo un gráfico de piernas por otro que las tiene en distinta 
posición, pero en vez de ir alternándolos a medida que va dando pasos, con 
una variable que guarde la información instantánea de como tiene las piernas, 
lo que se ha hecho es que en cada paso se dibujen las dos representaciones 
de las piernas, de esta manera siempre que está en reposo tiene las piernas 
en igual posición y, de paso, nos ahorramos una variable. 

Tanto la dirección de los obstáculos como la de los agujeros es, así como 
suelo y techo, totalmente aleatoria, para partidas distintas. 

El análisis de los obstáculos y de los agujeros se realiza por atributos (ATTR). 
Ya que estamos hablando de análisis por atributos aclararemos que cuando 
se utiliza este sistema el borrado, entiéndase eliminación, de los obstáculos 
motivo del análisis debe hacerse modificando alguno de sus atributos, en caso 
contrario, y aunque el obstáculo ya no sea visible, el análisis lo seguirá dando 
como bueno, lo mismo se puede aplicar a la inversa, si queremos crear un de- 
terminado obstáculo, tendremos que dibujarlo con los atributos que hemos 
elegido para los obstáculos, porque si no, y aunque esté perfectamente dibu- 
jado y visible, el análisis por atributos no lo detectará. 


SUGERENCIA 


A cada modelo de representación gráfica del personaje se le puede asignar 
un valor de una variable (por ejemplo: caminando hacia la derecha, 2; saltan- 
do, 3; cayendo, 4, etc.) para de esta manera poder, en cada ciclo de juego, 
redibujar el personaje del juego y evitar, de esta manera, borrados momentá- 
neos. 
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OBSTACULOS 


1 GO TO 20: REM OBSTACULOS. $8 


ENFE. 

10 PAPER 6: INK 2: BORDER O: R 
UN 

20 FOR n=0 TO 127 

30 READ q 

40 POKE USR "a”"+n,qg 

50 NEXT n 


190 DATA BIN 00011000,BIN 00111 
000,BIN O0111100,BIN O0111000,B1 
N O0110000,BIN O1111000,BIN 1111 
1100,BIN 10111100 

110 DATA BIN 10111010,BIN OO111 
OC1,BZN OO111000,BIN 00101000,BI 
YY DO101000,BIN 11101000,BIN 1000 
1000,BIN 00001100 

120 DATA BIN 00011000,BIN 00011 
100,BIN OO0O111100,BIN 00011100,B1 
N 00001100,BIN O0011110,BIN 0011 
1111,BIN OO111101 

130 DATA BIN O1011101,BIN 10011 
100,BIN O0011100,BIN 00010100,BI 
N 00910100,BIN O0010111,BIN 0001 
0001,BIN 00110000 

140 DATA BIN 00001110,BIN 00011 
111,BIN O0001111,BIN 00000011,BI 
N 00001001,BIN O0100111,BIN 0011 
1111,BIN 00011100 

150 DATA O,BIN O1110000,BIN 110 
01000,BIN 11000000,BIN 11100010, 
BIN 11110111,BIN 11111101,BIN 00 
011000 
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150 DATA O,BIN 00001100,BIN 000 
10011,BIN 00000111,BIN O1000111, 
BIN 11101111,BIN 10111111,BIN 00 
011000 

170 DATA BIN O1110000,BIN 11111 
000,BIN 11110000,BIN 11000000,BI 
N 10010000,BIN 11100100,BIN 1111 
1100,BIN 00111000 

180 DATA O,BIN 00000110,BIN 001 
00100,BIN O1000100,BIN 01100100, 
BIN OO110111,BIN O0011111,BIN 00 
001111 

190 DATA O,O,BIN 10010000,BIN 1 
0100000,BIN 10100100,BIN 1110111 
O,BIN 11111110,BIN 11111110 

200 DATA O,BIN 00000110,BIN 000 
O1110,BIN 00001111,BIN O1001111, 
BIN O1101100,BIN OO111110,BIN 00 
011111 
2109 DATA BIN O0001111,BIN 00011 
101,BIN O0011101,BIN O0111100,BI 
N O1101111,BIN 11011011,BIN 1011 
0011,BIN 10011011 

220 DATA O,BIN O1100000,BIN O11 
10000,BIN 11110000,BIN O1110011, 
BIN 00110110,BIN O1111100,BIN 11 
111000 

230 DATA BIN 11110000,BIN 10111 
000,BIN 10111000,BIN OO0111100,BI 
N 11110110,BIN 11011011,BIN 1100 
1101,BIN 11011001 

240 DATA BIN 10111111,BIN OO0111 
000,BIN 00111000,BÍN 00101100,BI 
N O0100100,BIN O0100010,BIN 0010 
0011,BIN 00110000 

250 DATA BIN 11111101,BIN 00011 
100,BIN 00011100,BIN 0O0110100,BI 
N 00100100,BIN O1000100,BIN 1100 
0010,BIN 00000110 

260 LET h=0: LET r=0 
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1000 CLS3 : GO SUB 9200 
1010 PRINT AT 1,313">"5AT 21,0; 
INK 13"9c3c8c8c8c8c3c8c8c8c8c8c08 
c3c8r8c3c8c8c8c8c8c8c8c3c8c8c8c8 
c8c8c38c8” 
1020 LET Ff=INT (RNDX2): LET g=IN 
T (RNDX2) 
1030 LET a=0: LET d=0: LET s=15 
LET w=20: LET e=1: GO SUB 2000: 
LET t=p: GO SUB 9000: LET y=p: G 
O SUB 9000: LET u=p: GO SUB 92000 
: LET i=p: GO SUB 9000: LET o=p 
1040 PRINT AT w,ej”"B”";3AT w-1,e;” 
a” 
20009 IF d<>0 THEN LET d=d+1: GO 
TO 2110 
2010 LET r=r+1: -1F a>r THEN LET 
q$="10": GO TO 2090 
2020 LET gq$=INKEYS 
2030 IF q$="S" AND e>0 "¡JAEN LET 
s=0: PRINT AT w,e;j”P": BEEP 1/7 
,30: LET e=e-1: PRINT AT w-1,e;” 
C "¡AT wm,ej"D ” 
2090 IF q$=”"6” AND e>2 AND s=0 T 
HEN LET a=r+4: BEEP 1/10,10: PR 
INT AT u4-1,e-1;"GH"53AT w,ej" *: 
LET e=e-3 
2050 IF q$="6" AND ex29 AND s=1 
THEN ¿LET a=r+3: BEEP 1/10,10: P 
RINT AT w-1,e;"EF"5AT w,ej” " 
2060 IF g$="7" AND w>2 AND s=0 A 
ND e>0 AND ATTR (w-2,€)<>49 THEN 
PRINT AT w,ez3” ";¡AT w-1,ejz3” ": 
BEEP 1/10,40: LET W=w-3: LET h= 
h+100: LET e=e-1: GO SUB 9200: P 
RINT AT v,e5”"D”";AT w-1,ej3”C”": LE 
TY t=1+INT (RNIDX29): LET y=1+INT 
(RNDX22) 
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2070 IF q6="7" AND w>2 AND s=1 A 

ND e<x30 AND ATTR (w-2,e)<>49 THE 

N PRINT AT w,e;5” "5AT w-1,ej3” ” 
: BEEP 1/10,40: LET w=w-3: LET h 

=h+100: LET e=e+1: GO SUB 9200: 

PRINT AT w,ej”B"3AT w-1,e3"A”": L 

ET t=1+INT (RNDX29): LET y=1+INT 
(RNDXZ29) 

2080 IF q6$="8"” AND e<31 THEN LE 

T s=1: PRINT AT w,ej”0”": BEEP 1/ 

7,20: PRINT AT w-1,e3" A"sAT w,e 
3" B": LET e=e+1 

2090 IF q$="10” AND r=a-1 AND s= 

O THEN PRINT AT w-1,e3"C "5AT 
1,ej"D” 

2190 IF q$="10"” AND r=a-1 AND s= 
1 THEN LET e=e+3: PRINT AT w-1, 
e-3;" "¡AT wWm,ej"E” 

2110 1F 2212 THEM  P"RIMT AT m,e; 
6 *: LET d=e03 LET qgs="S5*: 6G TO 
20350 

2125 GO SUB 9100 

3000 IF w<>20 THEN PRINT AT vw+1 
¿15%  "3AT wtl1,t-15 INK 1533" 

T w+1,t+2;"93" 

3010 IF w<>20 THEN PRINT AT w+1 

sy" "jAT w9tl,y-135 INK 15*93”"3A 

T w+i,y+2j"93" 

2029 IF w<>2 THEN PRINT AT vwm-2, 

cs” "53AT w-2,0-15 INK 153"93"jAT 
w-2,0+2;”93" 

3030 IF w<>20 THEN PRINT AT v,u 

213" "¡AT m,utij” *": IF u<>t AND 
u<c>y AND u<>t+1 AND u<>y+1 THEN 
PRIMT AT w,uj INK 15*9c3" 

3040 IF w<>20 THEN PRINT AT w,i 

13" ”"3AT my itiz5” ”: IF i<>t AND 
i<>»y AND i<>tri AND i<>y+1 THEN 
PRINT AT w,ij INK 15“9c3"” 

3050 IF w=20 THEN GO TO 3270 

3260 IF f=i THEN GO TO 3120 
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3070 IF t>1 THEN LET t=t-1: GO 
TO 3090 

3080 PRINT AT w+1,t5 INK 15933" 
< LET t=29 

3090 IF y>1 THEN LET y=y-1: GO 
TO 3160 

3100 PRINT AT wt1,y5 INK 13"933” 
: LET y=29 

3110 GO TO 3160 

3120 IF t<29 THEN LET t=t+1: GO 
TO 3130 

3130 PRINT AT w+1,t3 INK 15"933" 
: LET t=1 

31390 IF y<29 THEN LET y=y+1: GO 
TO 31609 

3150 PRINT AT wt+t1,y3 INK 13"933" 
< LET y=1 

3160 IF d<>0 THEN GO TO 3260 
3165 IF +=! THEN GO TO 3220 
3170 IF u>i1 THEN LET u=u-1: GO 
TG 3190 

3180 PRINT AT w,uj”" ": LET u=30 
3190 1F i>1 THEN LET i=i-1: GO 

FO. 3z1o0 

3209 PRINT AT w,i5”" ": LET i=30 

3210 GO TO 3260 

3220 IF u<30 THEN LET u=u+1: GO 
TG 32499 

3230 PRINT AT w,u;s” ": LET u=1 

3240 IF i<30 THEN LET i=i+1: GO 
TO 3260 

3250 PRINT AT w,ij5” ": LET i=1 

3250 IF w=2 THEN GO TO 4000 
3270 IF g=1 THEN GO TO 3310 

3230 IF o>1 THEN LET o=0o-1: GO 

TO 3300 

3290 PRINT AT w-2,03 INK 153*333" 
: LET 0=29 

3300 GO TO 4000 

3310 IF o<29 THEN LET o=0o+1: GO 
TO 4000 
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3320 PRINT AT w-2,05 INK 13"933" 
: LET 0o=1 

4020 IF q$<>"é6" AND qe<>"10"” AND 
$=1 AND ATTR (w,e-1)=49 THEN B 

EEP 1/10,-10: PRINT AT w,ej"N";5A 

T w-1i,ej"mM": PAUSE 1: PAUSE 8: P 

RINT AT w-1,e3” ": IF e>»2 THEN 

LET e=e-3: PRINT AT w,e;"IJ": LE 
T d=15 

4030 IF q$<>"6" AND gq$<>"10" AND 
$=0 AND ATTR (w,e+1)=949 THEN B 

EEP 1/10,-10: PRINT AT wm,ej"L";5A 
T wm-1,ej"K": PAUSE 1: PAUSE 8: P 
RINT AT wm-1,ej3"” ": IF e<28 THEN 
LET e=e+3: PRINT AT w,e5"IJ": L 

ET d=15 

34040 IF w=2 AND e>29? THEN LET h 

=h+500: BEEP 1/2,40: GO TO 1000 

5000 PRINT AT 0,5;"TIEMPO ";r3"” 

PUNTOS "5h: GO TO 2000 

9000 LET p=1+INT (RNDXZ9) 

9010 RETURN 

9100 IF q$="6" OR qg$="10" OR ATT 

R (w+1,e)<>50 THEN RETURN 

9110 LET d=1. 

9120 BEEP 1/50,0: PRINT AT w,e;” 

"5AT w-1,e53” "5AT w+1,e5”"1IJ": 

LET w=w+1 

9130 IF ATTR (w+1,e)<>49 THEN 6G 

O TO 2000 

9140 GO SUB 9200: PRINT AT w,e;”" 
13”: GO SUB 9000: LET t=p: GO Su 

B 9000: LET y=p: RETURN 

9200 FOR n=2 TO 17 STEP 3 

9210 PRINT AT n,05" 

"5 INK 15”933 
ISISISIZIIIITIIIISISIIISIIIISS* 
9220 NEXT n 
9230 RETURN 
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LABERINTO 3 D 


| 


MEMORIA OCUPADA: 8635 bytes 


VARIABLES 


Matriz que se carga con la información de cómo es el laberinto. 
Coordenada vertical del jugador en el interior del laberinto (perspec 
va aérea). 

Coordenada horizontal del jugador en el interior del laberinto (pe 
pectiva aérea). 

Dirección actual, instantánea, del jugador en el interior del-laberini 

7 adelante, 6 atrás, 8 a la derecha y 5 a la izquierda. 

Tipo de zona de laberinto en la que se encuentra el jugador en est 
momentos (elemento de la matriz correspondiente a sus coorder 
das) que se analiza para poder realizar la representación gráfica. 
Coordenada de la representación gráfica variable en función de la zo! 
Coordenada de la representación gráfica variable en función de la zona. 
Coordenada de la representación gráfica variable en función de la zona. 
Coordenada de la representación gráfica variable en función de la zona, 
Tipo de zona de laberinto que hay en los laterales en los que hay 
puerta. 
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p Distancia, en zonas, desde la que está dibujándose hasta la original 
(en la que está el jugador). 

a Variable de inicio del bucle de carga de la matriz. 

Ss Variable de final del bucle de carga de la matriz. 

d Número de pasos que el jugador ha dado. 

es$ Carácter de la tecla pulsada. 

GRAFICOS 
No utiliza 
ESTRUCTURA DEL PROGRAMA 

10 Inicio del programa y selección de colores. 

20 Instrucciones de juego. 

1000 Creación aleatoria del laberinto en base a cuatro mitades ya hechas, 
esta información se carga en una matriz de 6 por 6. 

2000 Posicionado aleatorio del jugador en el laberinto para el comienzo de 
la jugada. 

3000 Selección, también aleatoria, de la dirección en que empezará la par- 
tida el jugador. 

4000 Transformación de la dirección relativa seleccionada por el jugador 
(adelante, izquierda, derecha y media vuelta atrás) en variaciones de 
su dirección absoluta (disminución o aumento de las dos coordena- 
das del plano del laberinto). 

4500 Análisis de la posición del jugador respecto a la salida. 

5000 Valoración de las variables de la representación gráfica del laberinto 
en función a la profundidad del dibujo (sucesión de zonas hacia 
adelante). 

6000 Representación gráfica del laberinto en función de la zona concreta 
que se está dibujando y de la dirección absoluta que se lleva. 

7000 Subrutina de representación gráfica de las zonas laterales que se ven 
a través de las puertas. 

8000 Subrutina de representación gráfica de la salida. 

9000 Subrutina de carga de la matriz. 


COMENTARIO 


Sofisticado programa de nivel totalmente profesional en el que no sólo se 
trabaja con las tres dimensiones, sino que además con dibujos en tres dimen- 
siones constantemente cambiantes. 

Este programa pone de manifiesto la rapidez del BASIC del SPECTRUM, 
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principalmente de las funciones PLOT y DRAW, de todas formas dicha rapi- 
dez ha sido ayudada por una gestión de pantalla complicada y trabajosa enca- 
minada, precisamente, a ahorrar tiempo. 

En sí el programa permite la utilización de laberintos mucho más grandes 
(tanto como la memoria permitiese dimensionar la matriz), con la única limita- 
ción de que ningún pasillo sea más largo de seis zonas. (Si cogiésemos el pla- 
no del laberinto y lo dibujásemos sobre papel cuadriculado haciendo coincidir 
las rayas de la cuadrícula con las paredes del laberinto, una zona coincide con 
una cuadrícula, los laberintos utilizados'en este juego son, precisamente, de 
seis por seis cuadrículas o zonas). 

También, de haber tenido más memoria libre, se podría haber hecho la ge- 
neración del laberinto más puramente aleatoria, pues, en realidad, el laberinto 
se genera a partir de cuatro mitades ya hechas, con el agravante de que dos 
mitades son únicamente superiores y las otras dos únicamente inferiores, por 
lo que en realidad, lo que hay, es cuatro laberintos distintos, que, como es 
natural, con el tiempo el jugador puede memorizar. 

Las zonas, que antes hemos explicado que eran las cuadrículas en que se 
dividía el laberinto, pueden dividirse en 10 tipos diferentes, a saber; con pared 
arriba, abajo, a la derecha, a la izquierda, arriba y abajo, a derecha y a izquier- 
da, arriba y a derecha, arriba y a izquierda, abajo y a derecha y por último aba- 
jo y a izquierda. Si repasamos con un poco de detenimiento las diez zonas 
nos daremos cuenta de que en estos laberintos nunca hay calles sin salida, 
y, también podremos apreciar que si una zona no tiene pared a la derecha, 
la que esté a su derecha no podrá tener pared a su izquierda, etc. 

El ordenador, para poder dibujar la perspectiva del laberinto desde la ubica- 
ción del jugador necesita conocer el laberinto, su estructura, dónde hay pared 
y dónde no. Esto lo puede saber a partir de la matriz de 6 por 6 cuyos elemen- 
tos no son ni más ni menos que la información codificada de cada zona. Aho- 
ra bien, el ordenador puede saber dónde hay pared y dónde no en unas coor- 
denadas determinadas del laberinto consultando el elemento de la matriz coin- 
cidente con dichas coordenadas, pero a la hora de dibujar dichas paredes ne- 
cesitará saber, además de las coordenadas antes mencionadas del jugador, 
su dirección, pues si el jugador está en una zona tipo 1, o sea, con pared arri- 
ba solamente, dependiendo de si está subiendo, bajando o yendo de lado di- 
cha pared se tendrá que dibujar enfrente, no se tendrá que dibujar (detras), 
o se tendrá que dibujar a uno u otro lado. l 

Además de las motivaciones recién expuestas, la dirección del jugador es 
necesaria para dibujar las sucesivas zonas de que se compone el pasillo que 
está delante suyo, y, también, para dibujar las zonas laterales que se ven a 
través de los lugares en que no hay pared. 

La primera zona que se dibuja es en la que se encuentra el propio jugador, 
es por eso que aunque tengamos pared al lado podemos girar (en este caso 
sólo se gira, sin moverse de la misma zona, ahora bien, si tenemos pared al 
lado y giramos, ¿qué veremos?, lógicamente, una pared delante y hueco a am- 
bos lados). 
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SUGERENCIA 


Dado las restrictivas condiciones de memoria libre con que queda este pro- 
grama, se ha tenido que limitar el número de pasos a 60 por falta de memoria 
libre, es normal que esta sugerencia vaya encaminada sólo a los que poseen 
la versión de 48 K del SPECTRUM. 

Como se ha comentado antes, es casi imprescindible realizar un sistema de 
generación del laberinto auténticamente aleatorio, solamente se ha de tener 
en cuenta la restricción de que el programa no puede representar un pasillo 
de más de seis zonas de largo y que no están contemplados los pasillos sin 
salida, o sea, no se han preparado zonas con pared por tres lados. 


40 


LABERINTO 3D 


1 GO TO 20: REM LABERINTO 3D. 
S ENFE 
10 PAPER 1: INK 35: BORDER 1: R 
UN 
20 PRINT AT 5,05” Para avanza 
r pulse el 7 , paradar media vue 
lta el ó, para gi-rar a la izqu 
ierda el 5 y el 8 ala derecha.” 
30 PRINT AT 11,05" La salida 
la identificara nadamas este vis 
ible,pues,toda ella,esta cruzada 
por una gran aspa."” 
40 PRINT AT 16,05” Para empez 
ar pulse una tecla.” 
50 PAUSE O 
€ INK 7 
2020 DIM aí(6,6) 
1019 LET a=1: LET s=3 
1020 GO SUB 2000 
10630 IF INT (RNDX2)=0 THEN GO S 
UB 9000: GO TO 1070 
1040 FOR n=1 TO 18 
1050 READ q 
¡060 NEXT n 
1070 LET a=4: LET s=6 
¿580 GO SUB 9000 
1090 IF INT (RND*2)=0 THEN GO S 
UB 29000 
1500 DATA 10,7,10,5,5,7 
1510 DATA 6,9,3,7,10,8 
1520 DATA 4,5,5,2,49,7 
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1530 DATA 
1590 DATA 
1350 DATA 
1560 DATA 
15370 DATA 
1580 DATA 
1590 DATA 
1500 DATA 
15610 DATA 


2000 LET q=1+INT 
2010 LET w=1+INT 
2020 LET e=5+INT 
2030 LET d=0 


2040 GO 


TO 4400 


3000 BEEP 1/10,10XINT 


3010 IF INKEYS$="" 


10 


3020 LET es=INKEYS 
AND es$<>"6” 
AND es+$<>"3" 


3030 IF 
es$x>">7" 
3010 


3040 LET r=a(q,w) 


es$xc>"5" 


3050 LET d=d+1 
3060 IF d=61 THEN BEEP 1,-20: P 


RINT AT 10,13;"”"TIEMPO”: 


10,7,10,3:8,9 
5,6,6,10,5,8 
00 o 20 E o 
510,53 256 
6,6,10,5,8,6 
9,8,9,5,5,8 
9,5,1,2,6,6 
10,5,2,4,8,6 
9,5,8,9,5,8 
(RNDXS) 
(RNDX5) 
(RNDX4) 


(RNDX6) 


THEN GO TO 30 


PAUSE O: RUN 
4000 IF e$c<>"5" THEN 
4010 IF e=5 THEN  LET 
4300 
3020-IF e=ó6 THEN  LET 
4300 
4030 IF e=7 THEN LET 
4040 IF e=8 THEN  LET 
4100 IF es$<>"6"” THEN 
4110 IF e=3 THEN  LET 
4300 
4120 IF e=6 THEN  LET 
4300 
4130 IF e=7 THEN  LET 
4140 IF e=8 THEN LET 
4200 IF e$x<>”"8" THEN 
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AND 


THEN GO TO 


PAUSE 1: 


GO TO 4100 
e=6: 60 TO 


e=3: GO TO 


e=5 
e=7 
GO TO 4200 
e=8: GO TO 


e=7: GO TO 
e=6 


e=5 
GO TO 4300 


4210 IF e=5S THEN LET e=7: GO TO 
4300 

3220 1F e=ó6 THEN LET e=35 

4230 IF e=? THEN LET e=8: GO TO 
49300 

4240 IF e=8 THEN LET e=é 

4300 IF e=5 THEN IF r<>4 AND r< 
36 AND r<>9 AND r<>10 THEN  LET 

w=w- 1 

4310 IF e=6 THEN -5- IF r<>3 AND r< 
>5 AND r<>8 AND r<>9 THEN LET q 

=q+ 1 

94320 IF e=7 THEN IF r<>1 AND r< 
75 AND r<>7 AND r<>10 THEN  LET 
q=q-1 

3330 IF e=32 THEN - IF r<>2 AND r< 
56 AND r<>7 AND r<>8 THEN LET yw 

=4+1 

5400 LET r=aíq,w) 

4500 IF ex>ó OR qí<>é OR w<>6 THE 

N GO TO 5000 

4510 CLS : PRINT AT 0O,15;dj;AT 10 
s10;5 FLASH 13 INK 6;"FELICIDADES 

45320 FOR n=-20 TO 50 

4530 BEEP 1/20,n 

4540 NEXT n 

4550 IF INKEYS$=”"" THEN BEEP 1/1 

O, INT (RNDXS1):3 GO TO 4550 

4360 RUN 

5000 CLS : PRINT AT 0,15;5d 

5010 LET t=0: LET y=0: LET u=32: 
LET i=19: LET p=0: GO SUB 6000 

5020 LET t=32: LET y=19: LET u=2 

8: LET i=17: LET p=1: GO SUB 600 

0) 

5030 LET t=60: LET y=36: LET u=2 

4: LET i=14: LET p=2: GO SUB 600 

O 

5040 LET t=84: LET y=50: LET u=1 

6: LET i=10: LET p=3: GO SUB 600 

O 


43 


5050 LET t=100: LET y=60: LET u= 
12: LET i=7: LET p=4: GO SUB 600 
e 

5060 LET t=112: LET y=67: LET u= 
8: LET i=5: GO TO 6000 

6000 PLOT 0,0: DRAW 0,1735: PLOT 
255,0: DRAW 0,175 

6010 IF r<>1 THEN GO TO 6060 
6020 IF e=5 THEN GO SUB 7200: L 
ET o=aíqt1,w-p): GO SUB 7300: LE 
T r=a(q,w-1-p): RETURN 

6030 IF e=ó THEN LET o=a(q+p,w- 
1): GO SUB 7300: LET o=a(q+p,w+1 
): GO SUB 7400: LET r=a(q+1i+p,w) 
: RETURN 

6040 IF e=7 THEN LET o=a(g-p,w+ 
1): GO SUB 7300: LET o=a!fq-p,w-1 
): GO SUB 7400: GO TO 7500 

6050 IF e=8 THEN GO. SUB 7100: L 
ET o=a(q+1,w+tp): GO SUB 7400: LE 
T r=afq,w+1+p): RETURN 

6060 IF r<>2 THEN GO TO 6110 
6070 IF e=5 THEN LET o=a(g-1,w- 
p): GO SUB 7400: LET o=a(q+t1,w-p 
): GO SUB 7300: LET r=a(q,w-1-p) 
¿ RETURN 

6080 IF e=6 THEN GO SUB 7100: L 
ET o=a(lq+p,w-1): GO SUB 7400: LE 
T r=atqt1i+p,w): RETURN 

6090 IF e=7 THEN GO SUB 7200: L 
ET o=aíq-p,w-1): GO SUB 7300: LE 
T r=aítq-1-p,w): RETURN 

6100 IF e=8 THEN LET o=atg-1,w+ 
p?: GO SUB 7300: LET o=a(q+1,w+p 
): GO SUB 7400: GO TO 7500 

6110 IF r<>3 THEN GO TO 6160 
6120 IF e=5 THEN GO SUB 7100: L 
ET o=a(q-1,w-p): GO SUB 7400: LE 
T r=a(q,w-1-p): RETURN 

6130 IF e=6 THEN LET o=a(qtp,w+ 
1): GO SUB 7300: LET o=atg+tp,w-1 
): GO SUB 7400: GO TO 7500 
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6140 IF le=7 THEN LET o=a(q-p,w- 
1): GO SUB 7300: LET o=a(g-p,w+1 
): GO SUB 7400: LET r=aítg-1-p,w) 
: RETURN 

6150 IF e=8 THEN LET o=a(g-1,w+ 
p): GO SUB 7300: GO SUB 7200: LE 
T r=a(q,wti+p): RETURN 

6160 IF r<>4 THEN GO TO 6210 
6170 IF e=5 THEN LET o=a(gq+1,w- 
p): GG SUB 7300: LET o=at(q+1,w-p 
): GO SUB 7400: GO TO 7500 

6180 IF e=6 THEN LET o=a(g+p,w+ 
1): GO SUB 7300: GO SUB 7200: LE 
T r=a(g+1+p,w): RETURN 

£190 IF e=7 THEN GO SUB 7100: L 
ET o=aílg-p,w+1): GO SUB 7400: LE 
T r=ata-1-p,w): RETURN 

6200 IF e=8 THEN LET o=a1g-1,w+ 
p): GO SUB 7300: LET o=a(q+1,w+tp 
3): GO SUB 7400: LET r=a(q,wti+p) 
: RETURN 

é210 IF rí>5 THEN GO TO 6260 
6220 IF e=5 THEN GO SUB 7100: G 
O SUB 7200: LET r=a(q,w-1-p): RE 
TURN ' 

6230 IF e=6 THEN LET o=a(q+p,w+ 
1): GO SUB 7300: LET o=a(q+p,w-1 
): GO SUB 7400: GO TO 7500 

6240 IF e=7 THEN LET o=alg-p,w- 
1): GO SUB 7300: LET o=aftg-p,w+1 
): GO SUB 7400: GO TO 7500 

6250 IF e=8 THEN GO SUB 7100: G 
O SUB 7200: LET r=a1q,w+1i+p): RE 
TURN 

6260 IF r<>6 THEN GO TO 6310 
6270 IF e=5 THEN LET o=a(q+i,w- 
p): GO SUB 7300: LET o=a(q-1,w-p 
): GO SUB 7400: GO TO 27500 

6280 IF e=6 THEN GO SUB 7100: G 
O SUB 7200: LET r=a(fq+1+p,w): RE 
TURN 
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6290 IF e=7 THEN GO SUB 7100: G 

O SUB 7200: LET r=afg-1-p,w): RE 

TURN 

6300 IF e=8 THEN LET o=aíg-1,w+ 

p): GO SUB 7300: LET o=a(q+1,w+p 
): GO SUB 7400: GO TO 7500 

6310 IF r<>7 THEN GO TO 6360 

6320 IF e=5 THEN LET o=afq+1,w- 

p): GO SUB 7300: GO SUB 7200: LE 

T r=a(q,w-1-p): RETURN 

6330 IF e=ó THEN GO SUB 7100: L 

ET o=aíq+p,w-1): GO SUB 7400: LE 

T r=a(qt1+p,w): RETURN 

6340 IF e=7 THEN LET o=a(q-p,w- 
1): GO SUB 7300: GO SUB 7200: GO 
TO 7500 

6350 IF e=8 THEN GO SUB 7100: L 

ET o=a(q+1,w+p): GO SUB 7400: GO 
TO 7500 ] 

6360 IF r<>8 THEN GO TO 6410 

6370 IF e=5S THEN GO SUB 7100: L 

ET o=aítg-1,w-p): GO SUB 7400: LE 

T r=altq,w-1-p): RETURN 

6380 IF e=6 THEN GO SUB 7100: L 

ET o=a(q+tp,w-1): GO SUB 7400: GO 
SUB 8000: GO TO 27500 

6390 IF e=7 THEN LET o=a(g-p,w- 
1): GO SUB 7300: GO TO 7200: LET 
r=a(g-1-p,w): RETURN 

6400 IF e=8 THEN LET o=a(q-1,w+ 

p): GO SUB 7300: GO SUB 7200: GO 
SUB 8100: GO TO 753500 

6410 IF r<>9 THEN GO TO 6460 
6420 IF e=5 THEN GO SUB 7100: L 

ET o=a(q-1,w-p): GO SUB 7400: GO 
TO 7500 

6430 IF ezó THEN LET O0=a(q+p,w+ 
1): GO SUB 7300: GO SUB 7200: GO 
TO 7500 

6440 IF e=7? THEN GO SUB 7100: L 

ET o=za(g-p,w+1): GO SUB 7400: LE 
T r=a(q-1-p,w): RETURN 
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6450 IF e=8 THEN LET o=a(q-1,w+ 
p): GO SUB 7300: GO SUB 7200: LE 
T r=za(qywt1+p>: RETURN 

£4é0 IF e=5 THEN LET o=a(q+1,w- 

p): GO SUB 7300: GO SUB 7200: GO 
TO 2500 

6470 IF e=6 THEN LET Oo=a(q+p,w+ 
1): GO SUB 7300: GO SUB 7200: LE 
T r=a(q+1+p,w): RETURN 

64€0 IF e=7 THEN GO SUB 7100: L 
ET o=aíg-p,w+1): GO SUB 7400: GO 
TO 2500 

£4790 IF e=8 THEN GO SUB 7100: L 

ET o=a(q+1,w+p): GO SUB 7400: LE 
T r=a(q,w+t1i+p): RETURN 

7100 PLOT t,y: DRAW u,i: PLOT t, 
175-y: DRAW u,-i 

7110 RETURN 

7200 PLOT 23559-t,y: DRAW -u,i2: PL 
OT 255-t,175-y: DRÁAW -u,-i 

7210 RETURN 

7300 PLOT t,y: DRAW 0,175-2Xy: P 

LOT t+tu,y+i: DRAW 0,175-2X(y+i) 
7310 1F e=5S THEN IF o=9 OR o=6 

OR o=4 THEN GO TO 7360 

7320 IF e=6 THEN IF o=3 OR o=5 

OR o=8 THEN GO TO 7360 

7330 IF e=7 THEN  1F o=1 OR o=5 
OR o=10 THEN GO TO 7360 

7340 1F e=8 THEN IF o=2 OR o=é 

OR o=7 THEN GO TO 7360 

7350 PLOT t,y+i: DRAW u,i:z PLOT 
t,175-y-i2: DRAW u,-“i: RETURN 
7360 PLOT t,y+i2 DRAW u,O: PLOT 
t,175-y-i: DRAW u,O: RETURN 

7400 PLOT 255-t,y: DRAW 0,175-2%X 

y: PLOT 255-t-u,y+i: DRAW 0,1275- 
2X(iy+i) 

7410 IF e=5S THEN  1F o0=4 OR o=6 

OR o=10 THEN GO TO 7460 

7420 IF e=6 THEN IF o=3 OR o=5 

OR o0=9 THEN GO TO 7460 
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7430 IF e=7 THEN 1F o=1 OR o=5 

OR 0=7 THEN GO TO 7460 

7440 IF e=83 THEN 1F o=2 OR o=6 

OR 0=8 THEN GO TO 7460 

7450 PLOT 255-t,y+i: DRAW -u,i: 

PLOT 255-t,175-y-i: DRAW -u,-1: 

RETURN 

7460 PLOT 255-t,y+i: DRAW -u,O: 

PLOT 255-t,175-y-i: DRAW -u,O: R 

ETURN 

7500 PLOT t+u,y+i: DRAW 255-2%(t 
+u),0: DRAW 0s175-2*(y+i): DRAW 
- (255-2X*(t+u)),0: DRAW 0,-(175-2 

*(y+i)): GO TO 3000 

8000 IF q+p=é6 AND w=ó6 THEN PLOT 
t+u,y+iz: DRAW 255-2*(t+u),175-2 

*(y+i1): PLOT 255-t-u,y+i: DRAW - 
255+2%(t+u),175-2X(y+1i) 

3010 RETURN 

8100 IF q=6 AND w+p=6 THEN PLOT 
255-t,y: DRAW -u,175-i-2%*y: PLO 
T 255-t-u,y+i: DRAW u, 175-i-2%*y 
8110 RETURN 

9000 FOR n=a TO s 

9010 FOR m=1 TO 6 

9020 READ q 

9030 LET afn,m)=q 

9040 NEXT m 

9050 NEXT n 

9060 RETURN 
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TORRES 


MEMORIA OCUPADA: 3030 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 


Primera torre. 

Segunda torre. 

Tercera torre. 

Torre de la cual se extrae anilla. - 
Torre en la cual se introduce anilla. 
Torre de la cual se extrae anilla. 
Torre en la cual se introduce anilla. 
Variable de bucle FOR NEXT. 
Variable de bucle FOR NEXT. 


GRAFICOS 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

20 Carga de los gráficos definibles por el usuario. 
60 Gráficos definibles por el usuario. 

100 Representación gráfica del escenario de juego. 


1000 Llenado de anillas de la primera torre. 

2000 Ciclo de juego, zona de entrada de datos del jugador. 

3000 Ciclo de juego, análisis de los datos y representación gráfica de los 
resultados. 

4000 Ciclo de juego, análisis de final de partida. 


COMENTARIO 


El juego que aquí presentamos, consiste en pasar todas las anillas de la pri- 
mera torre a la segunda o tercera torre, como mejor venga. La dificultad estri- 
ba en que la anilla que queremos cambiar de torre ha de ser más pequeña que 
aquella sobre la cual la queramos colocar, ello nos obliga a ir jugando con las 
dos torres vacías para poder ir realizando los movimientos intermedios nece- 
sarios para conseguir el fin antes expuesto. 

Más que un juego, es todo un reto (puede llegar a crear adicción), con la 
ventaja de que ocupa muy poca memoria, aunque ello no le resta complicación. 

La complicación de este juego no está, evidentemente, en la lógica, pues 
ésta es un sencillo y bonito cálculo de cadenas. La complicación viene en la 
gestión de pantalla, o mejor dicho, en una gestión de pantalla a la par que 
la lógica, sin abuso de una memoria y sin abuso de variables. 

Como podemos ver en las líneas 1000, 1010 y 1020 las tres torres son tres 
cadenas, la primera es “987654321”, y las otras dos son cadenas vacías. A 
la hora de cambiar una anilla de una torre a otra, la forma de comprobar si 
dicho paso se puede dar es verificando, primero, que la torre de la que se saca 
no es una cadena vacía, y, después, que la anilla que sacamos, naturalmente 
la de arriba, o sea, el último elemento de la cadena d$(LEN d$ TO), es menor 
que aquella sobre la cual la vamos a colocar e$ (LEN e$ TO), esta comprobación 
se lleva a cabo en la línea 3020. 

A la hora de representar gráficamente lo calculado nos encontramos con 
el problema de saber a qué altura hay que borrar o dibujar las anillas, y en este 
último caso, cuán larga es la anilla que hemos de dibujar. La altura nos viene 
dada por la longitud de la cadena, pues, como es natural, a más anillas más 
altas irán, y viceversa, de forma que, por ejemplo, para la torre dadora, la altu- 
ra a borrar será 21-LEN d$*2 (la coordenada horizontal no nos representará 
ninguna dificultad, nos viene dada por (d-1)*10 + (d-1)). Análogamente la lon- 
gitud de la anilla a dibujar también nos vendrá dada por el último elemento 
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de la cadena representante de la torre dadora, concretamente lo que usare- 
mos es su valor para otorgárselo a la longitud del bucle que nos dibujará dicha 
anilla, como podremos ver en las líneas 3050, 3060 y 3070, dicho bucle es FOR 
n=0 TO INT ((VAL dS(LEN d$ TO))/2)*2 +1. 


SUGERENCIA 


Una sencilla forma de aumentar la, ya de por sí alta dificultad de este juego, 
es hacer que primero se tenga que llenar la torre número dos y después la tres. 
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TORRES 


1 GO TO 20: REM TORRES. 3 ENF 
10 PAPER 3: INK 3: BORDER 35: R 


20 FOR n=0 TO 47 

30 READ q 

40 POKE USR "a"+n,qg 

50 NEXT n 

60 DATA O,O,BIN 00000001,0,0,0 
, BIN 0000001,0 

61 DATA O,BIN 10000000,BIN 100 
00000,BIN 10000000,BIN 10000000, 
BIN 10000000,BIN 11000000,0 

70 DATA O,BIN 00000001,BIN 000 
00010,0O,BIN 00000001,BIN 0000001 
O.BIN 00000011,0 

71 DATA O,BIN 10000000,BIN 010 
900000,BIN 01000000,BIN 10000000, 
C,BIN 11000000,0 

30 DATA O,BIN 00000001,BIN 000 
00010,0,0,BIN O00000010,BIN 00000 
001,0 

8i DATA O,BIN 10000000,BIN 010 
00000,BIN 10000000,BIN 01000000, 
BIN O01000000,BIN 10000000,0 

100 FOR n=2Z TO 20 

110 PRINT AT n,93 INK 13"95c5"5 
AT n,155"95c5";AT n,26;3"95c5"” 

120 NEXT n 

130 FOR n=0 TO 4 

140 FOR m=4-n TO St+n 

150 PRINT AT 4Xn+3,m3"39c3"” 

160 NEXT m 

170 PRINT AT 4Xn+5,3-n3"95" 

180 FOR m=3-n TO 4+n 
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190 PRINT AT 4%n+5,m+15;5"g3c8c5” 
200 NEXT m 


210 NEXT n 
220 PRINT AT 21,05 INK 6; PAPER 
15" AB CD EF 


230 PRINT AT 0,125 INK O5"”DE 

A* 

1000 LET as="987654321" 

1010 LET bs$="" 

1020 LET cs$="" 

2000 PRINT AT 0,135; INK Oj FLASH 
13"2"j3AT 0,19; FLASH 0O;* * 

2010 IF INKEYS$="" THEN GO TO 20 
10 

2020 LET d$=INKEYS 

2030 IF d$<>"1” AND d$<>"2" AND 

d$<>"3" THEN GO TO 2010 

2040 PRINT AT 0,155 INK 33d 
2050 PRINT AT 0,195 INK Oj FLASH 
LL?” 

2060 IF INKEYS$<>"" THEN GO TO 2 

060 

2070 IF INKEYS="" THEN GO TO 20 

70 ; 

2080 LET es=INKEYS 

2090 IF es<>"1” AND es<>"2"” AND 

e$<>"3" THEN GO TO 2060 

2100 PRINT AT 0,193 INK 3jes 
2110 LET d=VAL d$ 

2120 LET e=VAL es 

2130 IF d=1 THEN LET dS=as 

2140 IF d=2 THEN LET d$=bs 

2150 IF d=3 THEN LET dS=CcS 

2160 IF e=1 THEN LET es=as 

2170 IF e=2 THEN LET es=bs 

2180 IF e=3 THEN LET es=cs 

3000 IF LEN d$=0 THEN GO TO 200 

0) 

3010 IF LEN es$=0 THEN GO TO 303 

10] 
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3020 IF d$(LEN d$ TO )>=es$(LEN e 

$ TO ) THEN BEEP 1/5,0: BEEP 1/ 

4,-10: BEEP 1/3,0: BEEP 1/2,-20: 
GO TO 2000 

3030 PRINT AT 21-LEN d$X*2, (d-1)% 
10+(d-1)5 INK 159 5c5 " 

3040 LET es=eS5+d$5(LEN d$ TO ) 

3050 FOR n=0 TO INT ((VAL d$(LEN 
d$ TO ))/2)X2+1 

3060 PRINT AT 21-LEN es$%*2, (e-1)% 
10+e+4+n-INT (((VAL d$(LEN d$ TO 
))+2)1/2)5"9c8" 

3070 NEXT n 

3080 IF VAL d$(LEN d$ TO )=2 OR 

VAL d$(LEN d$ TO )=4 OR VAL ds(L 

EN d$ TO )=6 OR VAL d$(LEN d$ TO 
)=8 THEN PRINT AT 21-LEN es$*z, 
(e-1)X*10+e+4-INT (((VAL d$(LEN d 

$ TO ))+2)/2)5"95"5AT 21-LEN esx 
2, le-1)X*10t+te+3+n-INT (((VAL d$(L 

EN d$ TO ))+2)/2);"9c5" 

3090 LET dt=d$(í TO LEN d$-1) 


3100 IF d=1 THEN LET as$=ds$ 
3110 IF d=2 THEN LET b$=d$ 
3120 IF d=3 THEN LET cs$=ds$ 
3130 IF e=1 THEN LET aS$=esS 
3140 IF e=2 THEN LET bS$=e$ 
3150 IF e=3 THEN LET c%$=es$ 


3160 FOR n=0 TO 40 STEP 5 

3170 BEEP 1/30,n: BEEP 1/30,n-2 
3180 NEXT n 

4000 IF LEN b$<9 AND LEN c$<9 TH 
EN GO TO 2000 

4010 PRINT AT 0,105 FLASH 135 INK 
23 "FELICIDADES" 

4020 FOR n=0 TO 3 

4030 FOR m=10 TO 40 STEP 10 

4040 BEEP 1/3,m 
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4050 NEXT m 

4060 NEXT n 

4070 BEEP 1,20 

4080 BEEP 1/10,40 

4090 PAUSE 1: PAUSE O: GO TO 10 
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é 


Q3]3D00"EX*"=0 
L 


MEMORIA OCUPADA: 5245 bytes 


VARIABLES 


Variable de carga (DATA) de los gráficos definibles por el usuario, 
final del bucle de dibujado de laterales y suelo. 

Variable indicadora de jugador que está en acción, 0 para el jugador 
1 y 1 para el jugador 2. 

Puntuación del jugador número uno. 

Puntuación del jugador número dos. 

Número de tiradas efectuadas por el jugador número uno. 

Número de tiradas efectuadas por el jugador número dos. 
Coordenada vertical de la bola. 

Coordenada horizontal de la bola. 

Número de la bola en curso. 

Puntuación obtenida por la última bola. 

Variable de los bucles FOR NEXT. 

Variable de los bucles FOR NEXT. 

Carácter de la tecla pulsada. 
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GRAFICOS 


1060 E 

1140 *D" 

2000 “AAAAAA" “BAAAAB” “BAAB” “BB” 
3010 “GH” pg 

3130 “GH” 241. J5 

3140 “KL” “MN” 


3200 “pr” 
3220 “pr 
3230 “E” 


£ 


ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de los colores. 
20 Carga de los gráficos definibles por el usuario. 
100 Gráficos definibles por el usuario. 


1000 Representación gráfica del escenario de juego. 

2000 Ciclo de juego, zona sólo repetible por tirada, no por bola. Coloca- 
ción de los bolos. 

3000 Ciclo de juego, zona repetible por bola. Desplazamiento y control de 


la bola. 

4000 Ciclo de juego, zona repetible por bola. Cálculo bolos derribados y 
puntuación. 

5000 Ciclo de juego, zona repetible por bola. Análisis de fin de bola y de 
fin de tirada. 


6000 Subrutina de puntuación del jugador número uno. 
7000 Subrutina de puntuación del jugador número dos. 
8000 Subrutina de sonido. 


COMENTARIO 


Este programa representa una partida de bolos y, aunque se ha preparado 
para dos jugadores, tanto puede jugar uno cómo cuarenta. No está de más 
aclarar antes que nada, que, el autor, no tiene la más mínima idea de cómo 
se juega a los bolos, y hago esta aclaración para así frenar la lógica avalancha 
de críticas de aquellos que alguna vez han estado en una bolera, sobre todo, 
en cuanto a número de bolos, su colocación, caída, etc. ...es un juego. 

En sí, el juego consta de un escenario dibujado en perspectiva (efecto tridi- 
mensional), que consta de pista, hueco y laterales. En la pista, e inmediata- 
mente antes del hueco hay tres filas de bolos con seis, cuatro y dos bolos res- 
pectivamente, el efecto tridimensional de los bolos se consigue colocando las 
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filas más alejadas más altas. Dado que a todo el juego se le ha intentado dar 
una sensación de perspectiva, la bola no podía ser menos, es por eso que, 
en realidad, hay cuatro bolas de distinto tamaño que, a medida que se van 
acercando al fondo de pista, se van sustituyendo unas a las otras. (Dos bolas 
están formada por cuatro gráficos definibles mientras que las otras dos están 
formadas por un solo gráfico definible). 

El sistema de apuntar o, mejor dicho, de controlar la bola, seguido en este 
programa es el de control parcial en el tiempo, o sea, que durante el primer 
tercio del recorrido de la bola, el jugador la puede dirigir. Este control se lleva 
a cabo con las teclas 5 y 8 en el sentido que indican las flechas. 

Como puede apreciarse en las líneas 3279 y 3280, existen dos partes del ci- 
clo de juego que son interactivas, las comprendidas entre las líneas 3100 a 3150 
y 3200 a 3270-80. Esto es debido a que la primera zona corresponde al primer 
tercio del movimiento de la bola, o sea, sobre el que el jugador tiene el con- 
trol, mientras que en la segunda zona, podríamos decir que la suerte ya está 
echada. 

La comprobación de los bolos que han sido tocados por la bola se hace me- 
diante atributos (ATTR). 


SUGERENCIA 


Algo que puede hacer ganar mucho en realismo a este juego es la caída de 
los bolos, es por ello que la mejor sugerencia que se puede hacer es una mejo- 
ra en la parte del programa dedicada al derribo de los bolos. Una caída de bo- 
los más coherente junto con un momentáneo dibujo de los bolos derribados 
darían al programa un “toque” profesional. 
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BOLOS 


1 GO TO 20: REM BOLOS. $ ENFE 
10 PAPER 6: INK O: BORDER O: R 


20 FOR n=0 TO 111 

30 READ q 

40 POKE USR'"a"+n,q 

50 NEXT n 

100 DATA BIN OO111100,BIN O1111 
110,BIN O1111110,BIN O1111110,BI 
N OO111100,BIN OO111100,BIN O111 
1110,BIN O1111110 

110 DATA BIN O1111110,BIN O1111 
110,BIN O1111110,BIN O1111110,BI 
N O1111110,BIN O1111110,BIN O111 
1110,BIN O1111110 

120 DATA 255,BIN 11111110,BIN 1 
1111100,BIN 11111000,BIN 1111000 
O,BIN 11100000,BIN 11000000,BIN 
10000000 

130 DATA 255,BIN O1111111,BIN O 
O111111,BIN O0011111,BIN 0000111 
1,BIN 00000111,BIN 00000011,BIN 
00000001 

140 DATA O,BIN OO111100,BIN O11 
11110,BIN O1111110,BIN O1111110, 
BIN O1111110,BIN OO0O111100,0 

150 DATA BIN OO111100,BIN O1111 
110,255,255,255,255,BIN O1111110 
,»BIN 00111100 

160 DATA BIN 00000011,BIN 00001 
111,BIN OO111111,BIN OO111111,BI 
N O1111111,BIN O1111111,255,255 

170 DATA BIN 11000000,BIN 11110 
O000,BIN 11111100,BIN 11111100,BI 
N 11111110,BIN 11111110,255,255 
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180 DATA 255,255,BIN O1111111,B 
IN O1111111,BIN OO111111,BIN OO01 
11111,BIN O00001111,BIN 00000011 

190 DATA 255,2535,BIN 11111110,B 
IN 11111110,BIN 11111100,BIN 111 
11100,BIN 11110000,BIN 11000000 

200 DATA O,O,BIN 00000011,BIN O 
0001111,BIN O00O11111,BIN OO00O1111 
1,BIN OO111111,BIN OO111111 

210 DATA O,O,BIN 11000000,BIN 1 
1110000,BIN 11111000,BIN 1111100 
O,BIN 11111100,BIN 11111100 

220 DATA BIN OO111111,BIN OO111 
111,BIN O0011111,BIN OO0011111,BI 
N O0001111,BIN 00000011,0,0 

230 DATA BIN 11111100,BIN 11111 
100,BIN 11111000,BIN 11111000,BI 
N 11110000,BIN 11000000,0,0 
1000 PRINT AT 0,05 INK 75 PAPER 
> 


JUGADOR BOLA JUGAD 
OR 1 2 
TIRADAS TIRAD 
AS O 0) 
PUNTOS - "¿*gc8c8c8c8c8c8c 
8cae”;3” PUNTOS 000 3 
"gc8c8c8c8ce8cecesce”;” 000 
"3"*"3gc8c8c8c8c8c8c8c 
8”j” ”5"9g 


c8c8cgc8c8c8cec8e”;” 

1010 LET q=10 

1020 FOR n=9 TO 20. 

1030 FOR m=0 TO q 

1040 PRINT AT n,m3j PAPER 13” ” 
1050 NEXT m 

1060 PRINT AT n,m5 PAPER 63 INK 
15” 

1070 LET q=q-1 

1080 NEXT n 

1090 LET q=21 

1100 FOR n=9 TO 20 
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1110 FOR m=31 TO q STEP -1 
1120 PRINT AT n,m; PAPER 13” " 
1130 NEXT m 

1140 PRINT AT n,m; PAPER 65 INK 
17 *"D" 

1150 LET q=q+1 

1160 NEXT n 

1170 LET w=0: LET e=0: LET r=0: 

LET t=0: LET y=0: LET p=0 

2000 PRINT AT 7,13; PAPER 75 INK 
23 "AAAAAA”" 5 AT 8,13;"BAAAAB";AT 

9,14; PAPER 6;"BAAB";AT 10,15;"B 

B": BEEP 1/2,-30 

2010 IF w=0 THEN PRINT AT 2,49; 

PAPER 33 INK 73 FLASH 15"1"5AT 2 
1275 FLASH 0;”"2" 

2020 IF w=1 THEN PRINT AT 2,4; 
PAPER 33 INK 75"1"jAT 2,27; FLAS 

HIi2* 

2030 LET 0=3 

3000 PRINT AT 2,15; PAPER 335 INK 
7;3"0"j0: LET i=12+INT (RNDX8) 
3010 PRINT AT 20,i5"GH";AT 21,i; 
"13": LET u=19: BEEP 1/5,10: BEE 
P 1/10,20: BEEP 1/20,40 

3020 IF INKEY$="" THEN GO TO 30 
20 

3100 LET q$=INKEYS: BEEP 1/100,3 
O 

3110 IF q$="5" THEN LET i=i-1 
3120 IF q$="8" THEN LET i=i+1 
3130 IF u>=18 THEN PRINT AT u,i 
5"GH”"5AT ut+tl1,i-153" 1] "jAT u+z,i 
=153” n 

3140 IF u<1i8 THEN PRINT AT u,i; 
"KL"5AT utl1,i-153" MN "5AT u+z2, i- 
13 ” 

3150 IF u>15 THEN LET u=u-1: GO 
TO 3100 

3200 PRINT AT u,iz”"F "¿AT ut+l,i; 
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3210 LET u=u-1 

3220 IF u>12 THEN PRINT AT u,is; 
"FAT util, iz” ” 

3230 IF u<1i3 THEN PRINT AT u,i; 
"EAT uti, iz” ” 

3240 IF i=21-u AND i<>12 THEN P 
RINT AT u,sip” ": LET i=i+1 

3250 IF i=u+10 AND i<>19 THEN P 
RINT AT u,ij” ”": LET i=i-1 

3260 IF u>11 THEN GO TO 3200 

3270 IF u=11 AND i<>15 AND i<>16 
THEN GO TO 3200 

3280 IF u=10 AND i<14 OR u=10 AN 
D i>17 THEN GO TO 3200 

3290 PRINT AT u,i;” ” 

4000 IF i=12 OR i=19 THEN GO TO 
5000 

4010 IF i=13 OR i=18 THEN IF AT 
TR (8,1)=58 THEN PRINT AT 8,i; 
INK 75"9c8"5AT 7,i15"9c8": LET p= 
1: GO SUB 8000 

4020 IF i=149 OR i=17 THEN 1F AT 
TR (9,i1)=50 THEN PRINT AT 9,i; 
INK 63"9c8"5AT 83,15 INK 75"9c8"”; 
AT 7,i5"9c3": LET p=2: GO SUB 80 
00 

4030 IF i=15 OR i=1ó6 THEN IF AT 
TR (10,i1)=50 THEN PRINT AT 10,i 
5 INK 653”"39c8”"5AT 9,i5”"39c8";AT 8, 
ij INK 73"9c8";AT 7,i5"9c8": LET 
p=3: GO SUB 8000: IF INT (RND*1 
1)=0 THEN PRINT AT 7,153 INK 75 
*gc8";AT 8,15;”"9c8c8";jAT 9,15; 1 

NK 63"9c8c8";AT 10,15;"9c8c8": L 
ET p=6: GO SUB 8000 

5000 LET o=o-1 

5010 IF w=0 THEN LET e=e+p: GO 
SUB 6000 

5020 IF w=1 THEN LET r=r+p: GO 

SUB 7000 
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5030 LET p=0: IF 0>0 THEN GO TO 
3000 

5040 IF w=O THEN LET t=t+1: PRI 

NT AT 4,49; PAPER 35 INK 73t 

5050. IF w=1 THEN LET y=y+1: PRI 

NT AT 4,27; PAPER 35 INK 7;y 
5060 LET w=ABS (w-1) 

5070 PAUSE 1: PAUSE 50: GO TO 20 
00 Ñ 

6000 IF e<10 THEN PRINT AT 6,5; 
PAPER 3; INK 7;5e: RETURN 

6010 IF e<100 THEN PRINT AT 6,4 
3 PAPER 33 INK 75e: RETURN 

6020 PRINT AT 6,3; PAPER 35 INK 
7je: RETURN 

7000+1F r<10 THEN PRINT AT 6,28 
3 PAPER 33 INK 75r: RETURN 

7010 IF r<100 THEN PRINT AT 6,2 
75 PAPER 33 INK 75r: RETURN 

7020 PRINT AT 6,26; PAPER 35 INK 
7jr: RETURN 

8000 BEEP 1/3,0: BEEP 1/10,0: BE 

EP 1/10,0: BEEP 1/5,0: BEEP 1/2, 
10: RETURN 
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TEX*OSAO 


BLACK JACK 


MEMORIA OCUPADA:7939 bytes 
VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Coordenada vertical de la carta. 

Coordenada horizontal de la carta. 

Palo al que pertenece la carta en tratamiento. 

Suma del valor de las cartas del jugador. 

Coordenada vertical de la línea de carta. 

Valor de la carta en preparación.. 

Suma del valor de las cartas del ordenador. 
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GRAFICOS 


9100 “G"“G” 
9210 “A” “B” 
9229  *C” *D” 
9230 dl ¿dió sl 
924)  —“G”" “H” 


9310 "A A”"“B  B” 
9320: *€ -C"*"D DD” 
ID “E EF P” 
93% “"G GH H” 


ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

20 Carga de los gráficos definibles por el usuario. 

100 Gráficos definibles por el usuario. 

1000 Ciclo de juego, zona de las cartas del jugador. 

2000 Ciclo de juego, zona de las cartas del ordenador. 

9000  Subrutina de representación gráfica del fondo de las cartas. 
9910 Subrutina de representación gráfica de las cartas. 

9210 Subrutina de representación gráfica de los palos. 

9400 Subrutina de selecciones aleatorias, cartas y palos. 


COMENTARIOS 


Tenemos aquí un programa de lógica muy sencilla, podríamos decir elemen- 
tal, pero que debido a su trabajo, también podríamos decir lujosa representa- 
ción gráfica, ocupa mucha memoria. En sí, como factores influyentes en el 
considerable gasto de memoria de la representación gráfica están; cuatro pa- 
los distintos, trece cartas diferentes y la figura, y digo figura, sin s, pues se 
usa sólo una para todos los palos. 

El mecanismo de juego es bien sencillo, al empezar la partida aparece en 
pantalla una carta, es la primera carta del jugador, si quiere otra tendrá que 
apretar una tecla cualquiera salvo la n, la cual tendrá que pulsar cuando ya 
no quiera más cartas y desee plantarse. A continuación, el ordenador le dará 
sus cartas, y, en base a quien haya ganado, sonará una u otra música. 

Por si alguien no conoce las reglas del juego diré, brevemente, que consiste 
en sumar 21 puntos o menos, si se sobrepasan los 21 se pierde automática- 
mente. La banca no puede pedir más cartas si ya ha llegado a los 17 puntos, 
y, en caso de empate, gana la banca. 
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En el programa principal, el ciclo de juego sólo ocupa doce líneas lógicas 
1000-2050. Si tenemos en cuenta que las pocas llamadas a subrutinas que ha- 
cemos son para representaciones gráficas y selecciones aleatorias, compren- 
deremos la sencillez de lógica de este programa. 

Con la llamada a la subrutina 9400 seleccionamos aleatoriamente la carta 
del jugador, después de sumar sus puntos, 1010, y comprobar que no superan 
21, 1020, se esperan instrucciones del jugador, que pueden ser repetir el pro- 
ceso o pasar a la zona de juego del ordenador, 2000, en esta zona el proceso 
es similar al anterior. 

La subrutina 9409 lo que hace es seleccionar aleatoriamente el palo, r, y la 
carta, u, para después enviarnos a la subrutina de representación gráfica co- 
rrespondiente a la carta seleccionada, esto lo hace llamando a 9000 + 10*u, 
pues dichas subrutinas son de la 9910 a la 9130, u puede ser cualquier número 
entre 1 y 13 ambos inclusive. 

Desde estas segundas subrutinas se llamará a las de representación gráfica 
de los logotipos de los palos, ya que estas subrutinas son 9210 / 9240 y 9310 
/ 9340, su llamada tendrá que ser del tipo 9200 +r. De esta forma, llamando 
de subrutina en subrutina conseguimos en un mínimo de memoria unas herra- 
mientas generales para poder dibujar cualquier carta. 


SUGERENCIA 


Una sugerencia conveniente para ejercitar la técnica de dibujo con PLOT 
y DRAW, es perfeccionar el dibujo de la figura, o mejor, hacer por separado 
el de las tres figuras. 
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BLACK JACK 


1 GO TO 20: REM BLACK JACK. 8 


ENFE 
10 BORDER 4: PAPER 4: INK O: R 
UN 
20 FOR n=0 TO 71 
30 READ q i 
40 POKE USR "a”"+n,qg 
50 NEXT n 


60 PAPER 7 

100 DATA O,BIN 00011000,BIN 000 
11000,BIN O0111100,BIN 00111100, 
BIN O1111110,BIN O1111110,255 
110 DATA 255,BIN O1111110,BIN O 
1111110,BIN OO111100,BIN OO11110 
O,BIN 00011000,BIN 00011000,0 
120 DATA 0,0,0,0,0,BIN 01000010 
,BIN 11100111,BIN 11100111 

130 DATA 255,255,BIN O1111110,B 
IN OO0111100,BIN O0111100,BIN 000 
11000,BIN 00011000,0 

140 DATA 0,0,0,BIN 00011000,BIN 
00011000,BIN OO0111100,BIN 00111 
100,BIN O1111110 

150 DATA 255,255,BIN 11100111,B 
IN 11100111,BIN O1000010,BIN 000 
11000,BIN O0111100,0 

160 DATA 0,0,0,BIN 00011000,BIN 
O0111100,BIN OO0O111100,BIN 00011 
000,BIN 01011010 

170 DATA BIN 11100111,255,BIN 1 
1100111,BIN 01000010,BIN 0001100 
O,BIN O0011000,BIN O0111100,0 
180 DATA O,BIN O1100110,BIN 001 
01001,BIN O0101001,BIN 00101001, 
BIN 0O0101001,BIN 00100110,0 
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190 LET w=0: LET e=0: LET t=0: 
LET i=0 
1000 GO SUB 9400 
1010 LET t=t+u 
1020 IF t>21 THEN FOR n=40 TO - 
20 STEP -2: BEEP 1/10,n: NEXT n: 
PAUSE 1: PAUSE O: GO TO 10 
1030 IF INKEYS="" THEN GO TO 10 
30 
1040 IF INKEYS$<>"n" THEN BEEP 1 
/5,30: BEEP 1/5,10: GO TO 1000 
1050 LET w=10: LET e=0 
2000 GO SUB 9400 
2010 BEEP 1/5,10: BEEP 1/5,30 
2020 LET i=i+tu 
2030 IF i<17 THEN GO TO 2000 
2040 IF t<=i AND 1<=21 THEN FOR 
n=40 TO -20 STEP -2: BEEP 1/10, 
n: NEXT n: PAUSE 1: PAUSE O: GO 
TO 10 
2050 FOR n=-10 TO 40 STEP 2: BEE 
P 1/10,n: NEXT n: PAUSE 1: PAUSE 
O: GO TO 10 
9000 FOR n=0 TO 11: PRINT AT wtn 
ej PAPER 73" ": NEXT n: P 
LOT (8%Xe)-1,175-(w+n)X8: DRAW O, 
96: RETURN 
9010 GO SUB 9000: LET y=5: GO su 
B 9200+r: PRINT AT w,ej"A";AT w+ 
11,e+6;”A": RETURN 
9020 GO SUB 9000: LET y=1: GO SU 
B 9200+r: LET y=9: GO SUB 9200+r 
: PRINT AT w,e;j”"2"jAT w+11,e+6;"” 
2": RETURN 
9030 GO SUB 9000: LET y=1: GO Su 
B 9200+r: LET y=5: GO SUB 9200+r 
: LET y=9: GO SUB 9200+r: PRINT 
AT wm,ej"3";AT w+11,e+t63"3": RETU 
RN 
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9040 GO SUB 9000: LET y=1: GO SU 
B 9300+r: LET y=9: GO -SUB 9300+r 
: PRINT AT wm,ej"4"3AT w+11,e+6;" 
4": RETURN 
9050 GO SUB.9000: LET y=1: GO SU 
B 9300+r: LET y=5: GO SUB 9200+r 
: LET y=9: GO SUB 9300+r: PRINT 
AT w,ej"5"3AT w+11,e+t63"5": RETU 
RN 
9060 GO SUB 9000: LET y=1: GO SU 
B 9300+r: LET y=5: GO SUB 9300+r 
: LET y=9: GO SUB 9300+r: PRINT 
AT w,ej"6"j3AT w+11,e+ó63"6": RETU 
RN 
9070 GO SUB 9000: LET y=1: GO Su 
B 9300+r: LET y=3: GO SUB 9200+r 
: LET y=5: GO SUB 9300+tr: LET y= 
9: GO SUB 9300+r: PRINT AT w,ej” 
»5AT w+11,e+6;3”"7": RETURN 
9080 GO SUB 9000: LET y=1: GO SU 
B 9300+r: LET y=3: GO SUB 9200+r 
: LET y=5: GO SUB 9300+r: LET y= 
7: GO SUB 9200+r: LET y=9: GO SU 
B 9300+r: PRINT AT w,e;"8"jAT w+ 
11,e+6;"8”: RETURN 
9090 GO SUB 9000: LET y=1: GO SU 
B 9300+r: LET y=3: GO SUB ?9300+r 
: LET y=5: GO SUB 9200+r: LET y= 
7: GO SUB 9300+r: LET y=9: GO Su 
B 9300+r: PRINT AT w,ej"9";3AT w+ 
11,e+6;3"9": RETURN 
9100 GO SUB 9000: LET y=1: GO SU 
B 9300+r: LET y=2: GO SUB 9200+r 
: LET y=4: GO SUB 9300+r: LET y= 
6: GO SUB 9300+r: LET y=7: GO SU 
B 9200+r: LET y=9: GO SUB 9300+r 
: PRINT AT w,e;”"G";AT w+11,e+6;" 
G": RETURN 
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9110 GO SUB 9000: LET y=5: GO SU 
B 9200+r: PRINT AT w,ej"J";jAT w+ 
11,etó63"J": INK 6: PLOT 8*(e+2), 
173-w*8: DRAW 4,-6: DRAW 4,6: DR 
AW 4,-6: DRAW 4,6: DRAW 4,-6: DR 
AW 4,6: DRAW 0,-8: DRAW -24,0: D 
RAW 0,8 
9112 PLOT 8%*(e+3)+5,164-wX*8: DRA 
W 5,-18: DRAW 0,18: DRAW 5,-18: 
DRAW 0,18: DRAW 5,-18: PLOT 8%*(e 
+2)+2,164-wX*8: DRAW 0,-14: DRAW 
4,-4: PLOT 8X(e+2),111-w*8: DRAW 
8,-2: DRAW -5,0: DRAW 5,-2: DRA 
W -5,0: DRAW 5,-2: DRAW -5,0: DR 
AW 5,-2: DRAW -8,0 
9114 PLOT 8X(e+2)+3,162-wX*8: DRA 
W 3,0: PLOT 8%*(e+3)+1,162-wX*8: D 
RAW 3,0: PLOT 8%X(e+3),159%-w*8: D 
RAW -3,-7: DRAW 3,0 
9116 INK 1: PLOT 8%(e+3),143-wX*8 
: DRAW -8,0: DRAW -16,-8: DRAW 1 
4,-24: DRAW 0,-8: INK 1: DRAW -1 
4,16: PLOT 8%(e+4),143-wX*8: DRAW 
16,0: DRAW 7,-8: DRAW 0,-24: DR 
AW -4,-4: DRAW 0,16: DRAW 0,-29: 
DRAW -36,0: DRAW 4,0: DRAW 0,-8 
: DRAW 8,8: DRAW 16,0: DRAW 0,-8 
¿ DRAW 8,8: RETURN | 
9120 GO SUB 9000: LET y=5: GO su 
B 9200+r: PRINT AT w,e;"0"jAT w+ 
11,e+653"0": INK 6: PLOT 8X(e+2), 
173-wX*8: DRAW 4,-6: DRAW 4,6: DR 
AW 4,-6: DRAW 4,6: DRAW 4,-6: DR 
AW 4,6: DRAW 0,-8: DRAW -24,0: D 
RAW 0,8 
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9122 PLOT 8X(e+3)+5,164-wX*8: DRA 
W 5,-18: DRAW 0,18: DRAW 5,-18: 
DRAW 0,18: DRAW 5,-18: PLOT 8X(e 
+2)+2,164-wX8: DRAW 0,-14: DRAW 
4,-4:.PLOT 8%(e+2),111-wX*S: DRAW 
8,-2: DRAW -5,0: DRAW 5,-2: DRA 
W -5,0: DRAW 5,-2: DRAW -5,0: DR 
AW 5,-2: DRAW -8,0 
9124 PLOT 8%(e+2)+3,162-wX*8: DRA 
W 3,0: PLOT 8X(e+3)+1,162-wX*8: D 
RAW 3,0: PLOT 8*(e+3),159-w%*8: D 
RAW -3,-7: DRAW 3,0 
9126 INK 1: PLOT 8X(e+3),143-wX8 
: DRAW -8,0: DRAW -16,-8: DRAW 1 
4,-24: DRAW 0,-83: INK 1: DRAW -1 
4,16: PLOT 8%X(e+4),143-wX*8: DRAW 
16,0: DRAW 7,-8: DRAW 0,-24: DR 
AW -4,-4: DRAW 0,16: DRAW 0,-29: 
DRAW -36,0: DRAW 4,0: DRAW 0,-8 
DRAW 8,8: DRAW 16,0: DRAW 0,-8 
: RETURN 
9130 GO SUB 9000: LET y=5: GO SU 
B 9200+r: PRINT AT w,e;"K";AT w+ 
11,e+r6;"K”": INK 6: PLOT 8*X(e+2), 
173-wX*8: DRAW 4,-6: DRAW 4,6: DR 
AW 4,-6: DRAW 4,6: DRAW 4,-6: DR 
AW 4,6: DRAW 0,-8: DRAW -24,0: D 
RAW 0,8 
9132 PLOT 8%(e+3)+5,164-wX8: DRA 
W'5,-18: DRAW 0,18: DRAW 5,-18: 
DRAW 0,18: DRAW 5,-18: PLOT 8X(e 
+2)+2,1694-wX8: DRAW 0,-14: DRAW 
4,-4: PLOT 8%(e+2),111-wX8: DRAW 
8,-2: DRAW -5,0: DRAW 5,-2: DRA 
W -5,0: DRAW 5,-2: DRAW -5,0: DR 
AW 5,-2: DRAW -8,0 
9134 PLOT 8X(e+2)+3,162-wX*8: DRA 
W 3,0: PLOT 8X(e+3)+1,162-wX*8: D 
RAW 3,0: PLOT 8%*(e+3),159-w*8: D 
RAW -3,-7: DRAW 3,0 


|] 
Bs) 
D 
z 
0 
0 
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9136 INK 1: PLOT 8X%(e+3),143-wX8 
: DRAW -8,0: DRAW -16,-8: DRAW 1 
4,-24: DRAW 0,-8: INK 1: DRAW -1 
4,16: PLOT 8X(e+4),143-w*8: DRAW 
16,0: DRAW 7,-8: DRAW 0,-24: DR 
AW -4,-4: DRAW 0,16: DRAW 0,-29: 
DRAW -36,0: DRAW 4,0: DRAW 0,-8 
DRAW 8,8: DRAW 16,0: DRAW 0,-8 
DRAW 8,8: RETURN 
9210 INK 2: PRINT AT w+y,e+3;"A” 
¡AT w+1+y,e+3;"B": RETURN 
9220 INK 2: PRINT AT wm+ty,e+3;"Cc" 
¡AT w+1+y,et+t3;"D": RETURN 
9230 INK O: PRINT AT w+y,e+t3;"E" 
¡AT w+1+y,e+3;”"F": RETURN 
9240 INK O: PRINT AT w+y,e+3;”"G" 
¡AT wti+y,et+t3;"H": RETURN 
9310 INK 2: PRINT AT w+y,et1;"A 
"¿AT wtli+ty,et1j"B B”: RETUR 


N 

9320 INK 2: PRINT AT wt+y,e+1;"c 
"5AT w+t1i+ty,et+t1;5”D D": RETUR 

N 

9330 INK O: PRINT AT wty,e+1;”E 
"5AT wt1t+ty,et13”"F F": RETUR 

N 

9340 INK O: PRINT AT w+y,et+t1;”G 
"5AT w+tity,et+t1j3"H H": RETUR 

N 

9400 LET r=10X*(1+INT (RNDX4)) 

9410 LET u=1+INT (RNDX13) 

9420 LET e=e+1 , 

9430 GO SUB 9000+10%X%u 

9440 IF u=11 OR u=12 OR u=13 THE 

N LET u=10 

9450 RETURN 
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EX +*=0S.a 


06». o0._” 
Ur 


MARCIANOS 


MEMORIA OCUPADA: 5059 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Variable del conteo general de ciclos de juego. 

Variable del conteo concreto de ciclos. 

Coordenada horizontal del jugador. 

Número de naves. 

Puntos. 

Máxima puntuación registrada desde que se puso en funcionamiento 
el programa, record. 

Indice de fase en que se encuentra el juego. 

Carácter de la tecla que esté pulsada. 

Coordenada horizontal de los disparos de los marcianos. 
Coordenada horizontal de la nave nodriza. 

Indice de la dirección horizontal de la nave nodriza y de la nave 
marciana. 
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"TO ”*o 


Coordenada vertical del jugador. 

Indice de cambio de dirección de la nave marciana. 

Coordenada horizontal de la nave marciana. 

Indice de la dirección vertical de la nave marciana. 

Variable de bucle FOR NEXT, coordenada vertical de la primera fila 
de marcianos, coordenada vertical de la nave marciana. 

Variable de bucle FOR NEXT. 

Variable de bucle FOR NEXT. 


GRAFICOS 


“AAA” “BBB” 

el Os “pr 
“"CCOCCCCCUC" 
"GOGECCCECC" 


41 G 1. 44 E ” 
“pr 
11 A .. 14 B .” 


ESTRUCTURA DEL PROGRAMA 


Inicio del programa y selección de colores. 

Carga de los gráficos definibles por el usuario. 

Gráficos definibles por el usuario. 

Representación gráfica del escenario de juego y valoración de 
variables. 

Ciclo de juego, fase de la primera parte del juego. 

Ciclo de juego, fase de la segunda parte del juego. 
Ciclo de juego, fase de la tercera parte del juego. 

Ciclo de juego, fase de entrada de datos del jugador. 
Subrutina de la representación gráfica de la puntuación. 
Subrutina de la representación gráfica del record. 
Subrutina de nave del jugador tocada. 


COMENTARIO 


No podía faltar, aunque, como después se verá, no es muy sofisticado, los 
resultados que da, por estar hecho en 5 K bytes y en Basic, son bastantes 
satisfactorios, y de paso demostramos, en contra de lo que mucha gente dice, 
que en Basic también se puede jugar a marcianos. 

El truco de este tipo de juego de gran rapidez está en la sencillez, es de todos 
sabido que un programa en lenguaje máquina es 10 y más veces más rapido, 


76 


luego lo que tendremos que hacer en Basic es eliminar todo aquello accesorio 
que pueda significar una pérdida de tiempo. Profundizando en el Basic con- 
creto del Spectrum hemos de tener en cuenta que los bucles y la función RND 
son muy lentos para abusar de ellos en este tipo de programa. En el otro lado 
de la balanza tenemos las sentencias PLOT, DRAW y, sobre todo, PRINT, co- 
mo fuera de lo considerado velocidad normal en ordenadores de este tipo. 

El juego aquí presentado está dividido en tres partes, la primera es la de los 
invasores, «chusma» que va aumentando y acercándose a nuestras posicio- 
nes hasta que, si no los matamos antes, acaban por invadirnos y nos hacen 
perder la partida, que no es lo mismo que perder una nave. La segunda parte 
es la de acoplamiento, nuestra nave sale disparada al encuentro de la nave 
nodriza y para poder ensamblarlas la hemos de guiar adecuadamente. En to- 
dos los casos las teclas a utilizar son 1 a la izquierda, 2 a la derecha y 0 dispa- 
ro. La tercera parte es un mano a mano con una nave marciana. 

En las tres partes en que está dividido el juego se pueden perder naves, ini- 
cialmente se dispone de tres, bien sea por disparos marcianos, primera y ter- 
cera parte, bien sea por no poder acoplarnos con la nave nodriza. En la prime- 
ra parte, como antes hemos adelantado, además de poder perder naves per- 
deremos la partida entera si somos invadidos. 

En sí, encontramos las tres partes del juego dentro del ciclo de juego en el 
programa principal, una detrás de otra, viniendo a continuación la zona de ac- 
ción del jugador e integrando todo ello el ciclo de juego. Ahora bien, las tres 
partes están cerradas, y sólo se abren mediante la variable ¡, la cual adquirirá 
los valores 1, 2 y 3 según la parte del juego en que estemos. 


En la primera parte del juego nos encontramos ya con la polifacética varia- 
ble 1, dicha variable, explicado en pocas palabras, no es otra cosa que la coor- 
denada vertical de la última representación gráfica marciana que se ha llevado 
a cabo o se está llevando a cabo. Es por eso que a la hora de llenar la pantalla 
de marcianos sea la | la variable del bucle que los dibuja, pues habrá tantas 
líneas de marcianos como valores adquiera | (dado que | es la coordenada 
vertical de cualquier dibujo de marcianos). Después cuando, por tiempo, se 
tengan que dibujar nuevas líneas de marcianos volveremos a usar la variable 
|, esta vez aumentada en 2; |=1+2. 

En la tercera parte del juego nos volvemos a encontrar la variable |. Al igual 
que en la primera parte, aquí una de sus funciones es poner límite a la altura 
de los disparos del jugador, así nunca se verán más largos de la distancia que 
hay entre ambas naves. El tiempo que en la primera parte del juego tarda en 
aparecer otra línea de marcianos es de 55 ciclos de juego, línea 2030; IF el >55 
THEN. 

Los disparos de los marcianos, y de la nave marciana, son aleatorios, aun- 
que ello implique pérdida de tiempo, no hay alternativa. De todas formas, aun- 
que se vea que esta zona de disparos marcianos está en el programa principal, 
sólo implica pérdida de tiempo cuando ha de producirse disparo. 

En la tercera parte del juego nos encontramos con dos variables indicadoras 
de dirección vertical y horizontal, estas son las que, mientras no cambien, ha- 
cen que la nave marciana siga moviéndose en la misma dirección que ya lleva- 
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ba. Aquí volvemos a utilizar la función RND, pero, como he dicho antes, es 
inevitable pues el cambio de dirección de la nave marciana ha de ser aleatorio, 
línea 4010. 


SUGERENCIA 


Para quitar monotonía al juego, sobre todo cuando se está bastante ducho 
en los menesteres de aniquilar marcianos, sería interesante dar un cierto senti- 
do cíclico al juego, de forma que cuando, ya en la tercera parte del juego, se 
hayan eliminado, por ejemplo, 10 naves marcianas, hagamos que se sumen 
unos determinados puntos de Pampnesción y se vuelva a empezar en la pri- 
mera parte del juego. 
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MARCIANOS 


1 GO TO 20: REM MARCIANOS. $8 


ENFE 

10 PAPER 1: INK 6: BORDER O: R 
UN 

20 FOR n=0 TO 47 

30 READ q 

40 POKE USR "a"+n,q 

50 NEXT n 


100 DATA BIN 00001000,BIN 00001 
000,BIN O1011101,BIN OO111110,B1I 
N O1111111,BIN O1111111,BIN O110 
1011,BIN 00001000 

110 DATA BIN O0011100,BIN 00011 
100,BIN OO111110,BIN 00011100,B1 
N O1111111,BIN O1111111,BIN O110 
1011,BIN 01000001 

120 DATA BIN 00001100,BIN 00011 
110,BIN OO0O101101,BIN OO111111,B1 
N O0110011,BIN: 00001100,BIN 0001 
0010,BIN 00100001 

130 DATA BIN 00001000,BIN 00011 
100,BIN OO111110,BIN O1111111,BI 
N O1111111,BIN O1111111,BIN OO11 
1110,BIN 00011100 

140 DATA BIN O1001001,BIN O1101 
011,BIN O1111111,BIN O1111111,BI1 
N O1110111,BIN O1110111,BIN O110 
0011,BIN 01000001 

150 DATA BIN O1010101,BIN O1011 
101,BIN O1010101,BIN O1110111,BI 
N O1111111,BIN O1001001,BIN 0001 
1100,BIN 00001000 

990 LET u=0 
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1000 FOR n=0 TO 21 
1010 PRINT AT n,05 PAPER 03” 
"¡AT n,263” 

1020 NEXT n 

1030 PRINT AT 3,05 PAPER 03 "PUNT 

OS”"jAT 8,1;5”0000”3AT 14,0; "RECOR 

D"jAT 16,15”"0000"5jAT 13,263 "NAVE 

s” 

1040 LET g=7: LET h=0: LET r=15: 
LET y=0: LET t=3: LET e=0: 

1050 LET d=21: LET w=0: LET i=1: 
LET q$="": LET a=7: LET s=0 
1060 PRINT AT 15,275 INK 33 PAPE 

R Oj"AAA”"5AT 16,273 INK 3;"BBB” 
1070 PRINT AT 3,283 INK 2; PAPER 
Oj"C” AT 9,283 INK 49;"F" 

1080 GO SUB 9000 

1090 GO SUB 9100 

1100 PAUSE 1: PAUSE O 

2000 LET w=w+1: LET e=e+1 

2010 IF i<>1 THEN GO TO 3000 
2020 IF w=1 THEN FOR 1=2 TO 8 S 
TEP 2; PRINT AT 1,8; INK 25”"C C 
CG OUCCCC"s NEXT 1 

2030 IF ex>55 THEN GO TO 2100 
2040 FOR n=2 TO 18 STEP 2 

2050 FOR m=8 TO 22 STEP 2 

2060 IF ATTR (n,m)=10 THEN PRIN 
T AT 1,85 INK 23"CCCCCCCC 
”": LET, 1=1+2: LET e=0;: GO TO 210 
o 

2070 NEXT m 

2080 NEXT n 

2090 LET i=2: GO SUB 9000: GO TO 
3000 

2100 IF gq$<>"0” THEN GO TO 2140 
2110 FOR n=18 TO 2 STEP -2 

2120 IF ATTR (n,r)=10 THEN PRIN 
TOAT n,rj INK 13" ":; LET y=y+10: 
GO TO 2140 

2130 NEXT n 
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2140 IF INT (RNDX11)<>0 THEN GO 
TO 2200 

2150 LET p=2X*(4+INT (RND*S)): FO 
R n=1 TO 2 STEP -2: IF ATTR (n,p 
)<>10 THEN NEXT n: GO TO 5000 
2160 PLOT OVER 1;8%Xp+4,175- (8% ( 
1-1)): DRAW OVER 150,-8*(20-1) 
2170 PLOT OVER 1;8Xp+4,175- (8% ( 
1-1)): DRAW OVER 150,-8X(20-1): 
BEEP 1/50,50 

2180 IF p=r THEN GO SUB 9200 
2190 IF 1=22 THEN PRINT AT 15,2 
75 PAPER 053” "¿AT 16,273" ": L 
ET t=1: GO TO 9200 

3000 IF i<>2 THEN GO TO 4000 
3010 IF s=0 THEN LET a=a+1: IF 
a=24 THEN LET s=1 

3020 IF s=1 THEN LET a=a-1: IF 
a=7 THEN LET s=0 

3030 PRINT AT O,a-1j INK 63" D ” 
¡AT 1,a-13 INK 55" E ” 

3040 LET d=d-1 

3050 IF d=1 THEN GO SUB 9200: P 
RINT AT d+1,r3"” "SAT d,r;” . 
: LET d=21 

3060 IF d=2 AND r=a THEN LET i= 
3: LET y=y+500: GO SUB 9000: BEE 
P 1/8,20: BEEP 1/8,20: BEEP 1/8, 
20: BEEP 1/8,10: BEEP 1/8,30: PR 
INT AT O,as” "5AT 1,as” "5AT 2,r 
3% "5AT 3,r3” ”: LET d=2i 

4000 IF i<>3 THEN GO TO 535000 
4010 LET f=INT (RNDX11) 

4020 IF +=0 THEN LET 5s=ABS (s-1 
) 

4030 IF +=1 THEN LET h=ABS (h-1 
) 

4040 IF 5=0 AND 39<24 THEN LET gy 
=g+1 

4050 IF s=1 AND 3>7 THEN LET g= 
g-1 
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4060 IF h=0 AND 1<19 THEN LET 1 

=1+1 

4070 IF h=1 AND 1>1 THEN LET 1= 

1-1 

4080 PRINT AT 1-1,9-13 INK 45" 
"SAT 1,9-13"” F "3AT 1+1,9-13" 

4090 IF q$="0" AND r=g THEN LET 
y=y+100: GO SUB 9000: BEEP 1/77, 

-20: PRINT AT 1,95" ": LET 1=2: 

LET 3=24 

4100 IF INT (RND*X6)<>0 THEN GO 

TO 5000 

4110 PLOT OVER 1;8%9+4,175-(8%( 

1+1)): DRAW OVER 1;30,-8*(19-1) 

4120 BEEP 1/50,50 

4130 PLOT OVER 1;8%9+4,175- (8%( 

1+1)): DRAW OVER 150,-8X*(19-1) 

4140 IF g=r THEN GO SUB 9200 

5000 LET q6=INKEYS 

5010 IF q$="1" AND r>7 THEN LET 
r=r-1 

5020 IF q$="2" AND r<24 THEN LE 

T r=r+1 

5030 PRINT AT d-1,r-15 INK 55" A 
"5AT d,r-13 INK 33" B ": IF d<2 

1 THEN PRINT AT d+1,r-15” » 

5040 IF q$<>"0" THEN GO TO 5080 

5050 PLOT OVER 138%r+4,16: DRAW 
OVER 1;0,8*(20-1) 

5060 BEEP 1/50,10 

5070 PLOT OVER 1;¡8Xr+4,16: DRAW 
OVER 150,8%*(20-1) 

5080 GO TO 2000 

9000 IF y<100 THEN PRINT AT 8,3 

$ INK 63 PAPER Ojy: RETURN 

9010 IF y<1000 THEN PRINT AT 8, 

23 INK 63 PAPER Ojy: RETURN 

9020 PRINT AT 8,15 INK 65 PAPER 

Oy: RETURN 
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9100 IF u<100 THEN PRINT AT 16, 
33 INK 6; PAPER Oju: RETURN 

9110 IF u<1000 THEN PRINT AT 16 
,23 INK 63 PAPER Oju: RETURN 
9120 PRINT AT 16,15 INK 65 PAPER 
Oju: RETURN 

9200 LET t=t-1 

9210 FOR n=10 TO -10 STEP -1 
9220 BEEP 1/25,50: BEEP 1/25,n 
9230 NEXT n » 
9240 IF t=2 THEN PRINT AT 15,27 
5 PAPER 03" "¿AT 16,273" ” 

9250 IF t=1 THEN PRINT AT 15,28 


5 PAPER 03" "¡AT 16,283" " 
9260 IF t=0 AND y»u THEN LET u= 
y 


9270 IF t=0 THEN PRINT AT 15,30 
3 PAPER Oj” "AT 16,303" *": PAUS 
E 1: PAUSE O: CLS : GO TO 1000 
9280 RETURN 


L E <*iAA"5O*000T00 $2 


L 


MASTER MIND 


MEMORIA OCUPADA: 2470 bytes 


VARIABLES 


Número de cifras seleccionado. 
Número generado aleatoriamente. 
Primera cifra elegida. 

Segunda cifra elegida. 

Tercera cifra elegida. 

Cuarta cifra elegida. 

Quinta cifra elegida. 

Primera cifra seleccionada. 
Segunda cifra seleccionada. 
Tercera cifra seleccionada. 
Cuarta cifra seleccionada. 
Quinta cifra seleccionada. 
Número de la tecla pulsada. 
Número de tiradas efectuadas. 
Número de aciertos. 

Número de aproximaciones. 
Carácter de la tecla apretada. 
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GRAFICOS 


No utiliza 


ESTRUCTURA DEL PROGRAMA 


1 Inicio del programa y selección de colores. 

20 Selección del número de cifras del número secreto. 

50 Formación aleatoria del número secreto. 

100 Representación gráfica del escenario de juego. 

1000 Selección de las cifras por el jugador, análisis y representación gráfi- 
ca de los resultados. 

5000 Subrutina de generación aleatoria de cifras. 

5100 Subrutina de entrada de datos por el teclado. 

52909  Subrutina de final con partida ganada. 

5300 Subrutina de final con partida perdida. 


COMENTARIO 


Este juego consiste en adivinar un número secreto que el ordenador ha es- 
cogido aleatoriamente. La forma a seguir es ir dando número al ordenador y 
éste nos dirá cuántas cifras del número dado por nosotros coinciden con ci- 
fras del número secreto, aproximaciones, y, además, coinciden en la coloca- 
ción. dentro del número secreto, aciertos. 


El número de cifras del número secreto puede variar entre tres y cinco, a 
voluntad del jugador. 

En sí, hablamos de cifras y números porque, de cara a la visualización en 
televisores de blanco y negro, ha sido necesario, pues el juego original se hace 
con colores en vez de cifras, y el número secreto es en realidad una serie de 
tres, cuatro o cinco colores. De todas formas, y dado que la lógica de este 
programa es bastante sencilla, se ha optado por hacerlo de las dos maneras 
simultáneamente, así tenemos un color asignado a cada número (la asigna- 
ción es la natural que conlleva el teclado del ordenador), pero no nos hemos 
quedado aquí, sino que, además, les hemos asignado sonido, teniendo, de 
esta manera, cifra color y sonido ligados entre sí. 

Dadas las circunstancias que se acaban de exponer, el número total de ci- 
fras o colores entre los que se puede escoger está limitado a ocho, pues la 
asignación de color a las cifras 8 y 9 conlleva un trabajo desproporcionado (crear 
dos colores nuevos a base de gráficos definibles de concepción reticular), de 
todas formas esto sería un buen ejercicio para el lector. 

La forma de visualizar cifra y color es bien sencilla, cada cifra a visualizar 
en pantalla se representa con tinta de contraste sobre papel del color corres- 
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pondiente a la cifra a representar, por ejemplo; si la cifra es la quinta, el color 
del papel será j, pues j es, precisamente, la quinta cifra. 

La entrada de datos por parte del jugador, se ha sacado del programa prin- 
cipal y se ha puesto en una subrutina para, así, poder individualizar el proceso 
de entrada de cada cifra en una línea lógica sin repeticiones excesivas, líneas 
1000-1040. 

Inmediatamente después de la entrada de cifras se pasa al análisis, separan- 
do el de los aciertos del de las aproximaciones, el primero se efectúa en las 
líneas 100 a 1130 y el segundo en las 1189 y 1220. 

Seguramente cuando el lector haya leído “partida perdida”” se habrá extra- 
ñado, pues... ¿qué significa, partida perdida en un juego de ir dando números 
hasta adivinar el correcto? Pues muy sencillo, partida perdida significa que se 
ha agotado el número de tiradas disponibles por partida, como es natural, se 
ha programado un número de tiradas más que suficiente para poder adivinar 
el más dificil de los números de cinco cifras. 


SUGERENCIA 


Una manera de hacer más dificultoso e interesante este juego, es aumen- 
tando el número de cifras del número secreto, por ejemplo se podrían aumen- 
tar a siete con la incorporación del 8 y el 9. 
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MASTERMIND 


1 GO TO 20: REM MASTER MIN. 8 


ENFE 
10 BORDER 1: INK 2: PAPER O: R 
UN 
20 PRINT AT 10,35;"TRES , CUATR 
O O CINCO ú CIFRA 
s” 


30 GO SUB 5100: IF q$<>"3" AND 
q$<>"4" AND q$<>"5" THEN GO TO 
30 

40 LET q=VAL q$: LET d=10: LET 
e=20: LET i=30: LET j=40: LET t 
=0 
50 GO SUB 35000: LET a=w 
60 GO SUB 5000: LET b=w 
70 GO SUB 5000: LET c=w 
80 IF q>=4 THEN GO SUB 5000: 
LET d=w 
90 IF q=5 THEN GO SUB 5000: L 
ET e=w 
. 100 CLS 
1000 PRINT AT 1,9; FLASH 15 INK 
6; "CIFRAS": GO SUB 5100: LET f=r 
3 PRINT AT 3+t,95 PAPER f5 INK 9 
4: BEEP 1/5,5%f 
1010 GO SUB 5100: LET g=r: PRINT 
¿AT 3+t,105 PAPER 9; INK 959: BE 
EP 1/5,5%g9 
1020 GO SUB 53100: LET h=r: PRINT 
AT 3+t,115 PAPER hj INK 93h: BE 
EP 1/5,5%Xh | 
1030 IF q>=4 THEN GO SUB 5100: 

LET i=r: PRINT AT 3+t,123 PAPER 

ij INK 9514: BEEP 1/5,5*i 


1040 IF 
ET j=r: 


5 INK 95j: 
1050 PRINT AT 1,95 


1060 LET t=t+1: 


q=5 THEN GO SUB 5100: L 
PRINT AT 3+t,13; PAPER j 
BEEP 1/5,5%)j 

INK 65 "CIFRAS 


PRINT AT 2+t,45t 


1070 PRINT AT 1,195 FLASH 15 INK 
5; "ACIERTOS" 

1080 LET y=0 

1090 IF f=a THEN LET y=y+1: BEE 

P 1/10,40 

1100 IF g=b THEN LET y=y+1: BEE 

P 1/10,40 

1110 IF h=c THEN LET y=y+1: BEE 

P 1/10,40 

1120 IF i=d THEN LET y=y+1: BEE 

P 1/10,40 

1130 IF j=e THEN LET y=y+1: BEE 

P 1/10,40 

1140 PRINT AT 2+t,20; PAPER 5;y 
1150 BEEP 1/2,10%y 

1160 PRINT AT 1,165 FLASH 15 INK 


43 "APROXIMACIONES" 
1170 LET u=0 


1180 IF 
OR f=e 
10,30 
1190 IF 
OR g=e 
10,30 
1200 IF 
OR h=e 
10,30 
1210 IF 
OR i=e 
10,30 
1220 IF 
OR jz=e 
10,30 


f=a OR f=b OR f=c OR +=d 
THEN LET u=u+i: BEEP 1/ 


g=a OR g=b OR g=c OR g=d 
THEN LET u=u+1: BEEP 1/ 


h=a OR h=b OR h=c OR h=d 
THEN LET u=u+1: BEEP 1/ 


iza OR i=b OR i=c OR iz=d 
THEN LET u=u+1: BEEP 1/ 


j=a OR j=b OR j=c OR j=d 
THEN LET u=u+i: BEEP 1/ 


1230 PRINT AT 2+t,23;5 PAPER 4ju- 


7 


1240 BEEP 1/2,10%u 

1250 PRINT AT 1,165” 

1260 IF q=3 AND y=3 THEN GO TO 
5200 . 

1270 IF q=4 AND y=4 THEN GO TO 
5200 

1280 IF q=5 AND y=5 THEN GO TO 
5200 

1290 IF 3+t=21 THEN GO TO 5300 
1300 GO TO 1000 

5000 LET w=INT (RNDX8): RETURN 
5100 IF INKEY$<>"" THEN GO TO 5 
100 

5110 IF INKEY$="" THEN GO TO 51 
10 

5120 LET q6=INKEYS$ 

5130 IF q$<>"0" AND q$<>"1" AND 
q$<>"2" AND q$<>"3" AND q$<>"4" 
AND q$<>"5" AND q$<>"6" AND q$<> 
"7" THEN GO TO 5100 

5140 LET r=VAL qs$ 

5150 RETURN 

5200 FOR n=0 TO 10 

3210 PRINT AT 1,n; INK 65" FELIC 
IDADES " 

5220 BEEP 1/2,3%n 

5230 NEXT n 

5240 PAUSE 1: PAUSE O 

5250 GO TO 10 

5300 PRINT AT 1,55 INK 25"ES UST 
ED UN PAQUETE" 

5310 FOR n=40 TO -20 STEP -2 
5320 BEEP 1/10,n 

5330 NEXT n 

5340 PAUSE 1: PAUSE O 

5350 GO TO 10 


L33*0090DOTEX”*"Ss.0n 
Ur 


CARGA 


MEMORIA OCUPADA: 6751 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Indicador de puente abierto, puente cerrado. 
Coordenada vertical del jugador. 

Coordenada horizontal del jugador. 
Puntuación. 

Número de ciclos de juego. 

Coordenada vertical del coche número uno. 
Coordenada horizontal del coche número uno. 
Coordenada vertical del coche número dos. 
Coordenada horizontal del coche número dos. 
Indice de estado del coche número uno, si-no. 
Indice de estado del coche número dos, si-no. 
Dirección del jugador, Q izquierda, 1 derecha. 
Variable del bucle FOR NEXT. 

Variable del bucle FOR NEXT. 

Carácter de la tecla apretada. 
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GRAFICOS 


1020 Sr 
1280 “ER” “GG” 
1200 “EEE” 
120 HS" 
1310 “H” 

1410  “C" 

3030 “AA” “C" 
3110 “A” 

312% 0 E 
29. 0 

3249 “A” 

3320 “CC” 

4000 “a” 

4010 “Cc” 

500 “E” 

5080 el E 

5000 “G" 

6089 — “M” 


ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

20 Carga de los gráficos definibles por el usuario. 
1000 Representación gráfica del escenario de juego. 
2000 Ciclo de juego, zona de control del ordenador. 
3000 Ciclo de juego, zona de control del jugador. 
4000 Subrutina de fin de partida. 

5000 Subrutina de movimiento del coche número uno. 
6100 Subrutina de movimiento del coche número dos. 


COMENTARIO 


Este juego consiste en cargar un camión, a la derecha, con paquetes que 
se pueden recoger en la fábrica que hay a la izquierda, el problema está en 
el recorrido, pues hay que cruzar una autopista y un puente levadizo. El pro- 
grama tiene un límite de tiempo, por lo que interesa ir rápido para, así, acumu- 
lar la máxima puntuación posible, dicho límite se encuentra en la línea 2000 
y está fijado en 2000 ciclos de juego, se puede variar el gusto del jugador. 
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El control del sujeto se realiza con las teclas 5, 8 y 7 en el sentido que indi- 
can ias flechas. 

Es bastante importante, en este programa, el trabajo dedicado a la repre- 
sentación gráfica del escenario de juego, destaca en esta labor el par de bu- 
cles de rellenado de'color de dos superficies irregulares (líneas 1100 a 1210), 
para de esta manera dar la redondez imprescindible al contorno de las monta- 
ñas del escenario de juego. Dichos bucles son de la máxima altura de la zona 
a rellenar (empezando en el lado recto, con una expresión que analiza el punto 
siguiente e iguala la variable del bucle al límite máximo de éste en caso de que 
el punto analizado: sea de color de tinta. (IF POINT (n,m-1)=1 THEN LET 
m= 145). 

Para evitar complicación al programa, se han hecho todos los dibujos en 
condiciones de OVER 1, así no hay que redibujar nada de lo que está en el 
trayecto del sujeto, pues, sobre todo en el caso de los arcos, tener que redibu- 
jar constituiría, además de una complicación, una pérdida de tiempo inadmisible. 

La apertura y cierre del puente levadizo son totalmente aleatorios y vienen 
determinados por una misma orden (lo que en realidad se ordena no es la aper- 
tura o el cierre si no el cambio de estado), ahora bien, aunque aleatorio, siem- 
pre podremos hablar de una duracción promedio entre cambios de estado, como 
podemos ver en la línea 2029, dicho tiempo viene dado por INT (RND*100) = 99, 
si en vez de 100 y 99 pusiésemos 50 y un número cualquiera inferior a 50, ha- 
bríamos reducido el tiempo promedio a la mitad. En realidad el estado abierto- 
cerrado del puente viene dado por los valores 1-0 de la variable w y el cambio 
se determina por LET w=ABS (w-1) en la línea 2020. 

También es aleatoria la aparición de los coches (sólo hay dos coches uno 
en cada sentido), aunque su tiempo promedio entre apariciones es muy bajo 
y viene representado en las líneas 2030 y 2050 por s (d en la segunda) =I|INT 
(RND*5), de forma que si en vez de poner 5 ponemos 10, lo habremos do- 
blado. 

El recorrido de ambos coches, subrutinas 5000 y 6000, se ha hecho de for- 
ma secuencial debido a que, además de ser muy corto, en la mitad de su reco- 
rrido, la coordenada horizontal puede tener, aleatoriamente, dos valores dis- 
tintos, o sea, el coche es un solo gráfico definible por el usuario, sin embargo, 
las dos direcciones de la autopista son más anchas en su parte inferior que 
en la superior (efecto de perspectiva), de forma que las tres coordenadas ver- 
ticales superiores del recorrido del coche sólo permiten una coordenada hori- 
zontal, y las otras cuatro verticales permiten dos horizontales, siendo éstas alea- 
torias. 


SUGERENCIA 


Una pequeña variación, para la cual ya hay una ayuda hecha, sería hacer 
que la dirección del sujeto sea libre, o sea que en un momento dado tanto 
pueda ir hacia la izquierda como hacia la derecha, para ello están los gráficos 
definibles por el usuario «B» y «D». 
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CARGA 


160 TO 20: REM CARGA. $8 ENFE 
10 PAPER 4: INK O: BORDER O: R 


20 FOR n=0 TO 103 

30 READ q 

40 POKE USR“"a"+n,q 

50 NEXT n 

113 DATA BIN O0011000,BIN 00011 
000,0,BIN O0011100,BIN OO111010, 
BIN 00011000,BIN O0101000,BIN O1 
000100 

114 DATA BIN 00011000,BIN 00011 
000,O,BIN OO111000,BIN O1011100, 
BIN 00011000,BIN O0010100,BIN 00 
100010 

115 DATA BIN O0011000,BIN 00011 
O000,BIN 00000011,BIN OO111011,BI 
N O1011110,BIN O0011000,BIN 0001 
0100,BIN 00100010 

116 DATA BIN 00011000,BIN 00011 
O000,BIN 11000000,BIN 11011100,BI 
N O1111010,BIN O0011000,BIN OO010O 
1000,BIN 01000100 

117 DATA BIN 00000011,BIN 00001 
111,BIN O0O111111,255,BIN 1001100 
1,BIN 10011001,BIN 10011001,BIN 
10011001 

118 DATA BIN O1001001,BIN O1001 
001,BIN O1001001,BIN O1001001,BI 
N 10010010,BIN 10010010,BIN 1001 
0010,BIN 10010010 

119 DATA BIN 10010010,BIN 10010 
O10,BIN 10010010,BIN 10010010,BI 
N O1001001,BIN O1001001,BIN 0100 
1001,BIN O1001001 


94 


120 DATA BIN 00000011,BIN 00000 
O11,BIN O00001111,BIN 0O0001111,BI 
N O0111111,BIN OO0111111,255,255 

121 DATA BIN 11000000,BIN 11000 
000,BIN 11110000,BIN 11110000,BI 
N 11111100,BIN 11111100,255,255 

122 DATA BIN 00000001,BIN 00000 
O11,BIN 00000111,BIN O0001111,BI 
N O0011111,BIN OO111111,BIN O111 
1111,255 

123 DATA BIN 10000000,BIN 11000 
000,BIN 11100000,BIN 11110000,BI 
N 11111000,BIN 11111100,BIN 1111 
1110,255 

124 DATA O,BIN O1111110,BIN 010 
00010,BIN O1000010,255,BIN 10111 
101,255,BIN 01000010 

125 DATA O,BIN O1111110,BIN 010 
00010,BIN 01000010,255,BIN 11100 
111,255,BIN 01000010 
1000 PRINT AT 0,0; PAPER 5;" 


1010 FOR n=0 TO 4 

1020 PRINT AT 4+tn,7+tn; PAPER 5; 
INK 43"K"jAT 8-n,12+n3"J” 

1030 NEXT n 

1040 FOR n=272 TO 11 

1050 PRINT AT n-4,nj PAPER 5;" * 
¿TAB 24-n 

1060 NEXT n 

1070 INK 5 : 

1080 PLOT 0,144: DRAW 35,0,-2/3 
1090 PLOT 136,144: DRAW 23,7,-2/ 
5 

1100 FOR n=0 TO 535 

1110 FOR m=151 TO 1435 STEP -1 
1120 PLOT n,m 

1130 IF POINT (n,m-1)=1 THEN LE 
T m=19535 


1140 NEXT m 

1150 NEXT n 

1160 FOR n=136 TO 155 

1170 FOR m=151 TO 145 STEP -1 
1180.PLOT n,m 

1190 IF POINT (n,m-1)=1 THEN LE 

T m=145 

1200 NEXT m 

1210 NEXT n 

1220 INK 6 
1230 PLOT 104,104: DRAW 71,12,-1 
1240 PLOT 169,96: DRAW 35,55,-1 
1250 INK O 

1260 PLOT 148,16: DRAW 87,87,-1: 
PLOT 153,16: DRAW 82,87,-1 

1270 PLOT 68,16: DRAW 24,79: PLO 

T 98,16: DRAW 0,79: PLOT 101,16: 
DRAW 0,79: PLOT 131,16: DRAW -2 

4,79 

1280 PRINT AT 16,10;"FF";AT 16,1 

35"G6G” 

1290 PRINT AT 16,03 INK 35"*9c8c8 

c8"jAT 15,0;”EEE” 

1300 PRINT AT 16,18;"H"5AT 16,22 
- ii 

1310 PRINT AT 16,27;3"H";5"39c8";AT 
15,283" "¡AT 16,28; PAPER 2; 1 

NK 93*"3gc?c3c?7c2";5AT 15,30;3*"3 72” 
1320 FOR n=244 TO 246 

1330 FOR m=52 TO 54 

1340 PLOT  INK 43n,m 

1350 NEXT m 

1360 NEXT n 

1370 PLOT 152,47: DRAW 7,0: PLOT 
168,47: DRAW 7,0 

1380 PLOT 160,48: DRAW OVER 137 
yO 

1390 PRINT AT 20,05 PAPER O5 INK 
6” 

TIEMPO PUNTOS 


1400 LET e=0: LET y=0: LET r=16: 
LET £$=0: LET t=3: LET w=0: LET 
u=0: LET s=1: LET d=1: LET i=19: 
LET p=13: LET o=11: LET a=13 
1410 PRINT AT 16,35 OVER 1;"C” 
2000 LET e=e+1: LET u=u+1: IF u> 
=2000 THEN BEEP 1/5,20: BEEP 1/ 
5,0: BEEP 1/5,10: BEEP 1/5,-20: 
PAUSE 1: PAUSE O: GO TO 10 
2010 PRINT AT 21,12; PAPER 0; IN 
K 6jusAT 21,25;3y 
2020 IF INT (RNDX100)=99 THEN L 
ET w=ABS (w-1): PLOT 160,48: DRA 
W OVER 137,0: PLOT 160,48: DRAW 
OVER 150,7 
2030 IF s<>0 THEN LET s=INT (RN 
DX5) 
2040 IF s=0 THEN GO SUB 5000 
2050 IF d<>0 THEN LET d=INT (RN 
DX5) 
2060 IF d=0 THEN GO SUB 6000 
3000 LET q$=INKEYS 
3010 IF q$<>"5" THEN GO TO 3100 
3020 IF f=1 THEN GO TO 2000 
3030 IF t<18 AND t>3 OR t<27 AND 
t>23 OR t<22 AND t>19 AND w=0 T 
HEN  LET t=t-1: PRINT AT r,t; OV 
ER 1;"AA": BEEP 1/500,40: IF t=3 
THEN PRINT AT 16,33" "5AT 16,3 
5 OVER 13*"C" ( 
3040 IF t<22 AND t>19 AND w=1 TH 
EN GO TO 4000 
3050 GO TO 2000 
3100 IF q$<>"6"” THEN GO TO 3200 
3110 IF t=19 AND $=0 OR t=28 THE 
N —PRINT AT 15,t5"*" ”;AT 16,t-2; 
OVER 1;”A": BEEP 1/500,40: LET t 
=t-2: LET r=16: LET f=0 
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3120 IF t=21 AND f=1 THEN PRINT 
AT 15,215 OVER 1;3"C"5AT 16,23; 
OVER 1;”"C": BEEP 1/500,40: LET t 

=23: LET r=16 

3130.60 TO 2000 

3200 IF q$<>"7" THEN GO TO 3300 

3210 IF $=0 THEN GO TO 3240 

3220 IF t=17 OR t=26 THEN PRINT 
AT 16,t5”" "5AT 15,t+25 OVER 1;” 

Cc": BEEP 1/500,40: LET t=t+2: LE 

T r=15: IF t=28 THEN LET y=y+1: 
BEEP 1/5,40: BEEP 1/5,45: BEEP 
1/5,50: BEEP 1/5,55 

3230 GO TO 2000 

3240 IF t=23 THEN PRINT AT 16,2 

33" "¡AT 15,21; OVER 1;”"A”": BEEP 
1/500,40: LET t=21: LET r=15 

3250 GO TO 2000 

3300 IF g$<>"8" THEN GO TO 2000 

3310 IF f=0 AND t<>3 THEN GO TO 
2000 

3320 IF t>2 AND t<17 OR t>22 AND 
t<26 OR t>18 AND t<21 AND w=0 T 

HEN PRINT AT r,t;5 OVER 15"CC": 

BEEP 1/500,40: LET t=t+1: LET 4= 
1 

3330 IF t>18 AND t<21 AND w=1 TH 

EN GO TO 4000 

3340 GO TO 2000 

4000 IF f=0 THEN PRINT AT r,t; 

FLASH 15 INK 3;"”"A" 

4010 IF f=1 THEN PRINT AT r,t; 

FLASH 135 INK 33"C" 

4020 FOR n=0 TO 10: BEEP 1/20,-1 

O: BEEP 1/20,0: NEXT n 

4030 PAUSE 1: PAUSE O: CLS : CC 

TO 10 

5000 PRINT AT íi,o5" *": IF i=16 7 

HEN  PRINT AT i,o;*"F" 
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5010 IF i=18 THEN 
O=10+INT (RNDX2): 
o 5080 
5020 IF i”172 THE! 
O=10+INT (RNDX2) 
5039 IF ¡=16 THEN 
I=10+INT (PNDX2) 
5010 IF i=15 THEN 
2=104 INT (RNDX2) 
5050 IF iz=14 THEN 
5060 IF i=13 THEN 
5070 IF i=19 THEN 
o=11 
5080 PRINT AT i,o; 


LEFT 
LET 


LET 
LET 
LET 
LET 
LET 


LET 


INK 


i=19: 
sel: 


j=183: 


153 "L” 


LET 


60 7 


LET 


LET 


LET 


LET 


5090 IF i=r AND o=t THEN GO TO 


4000 


5100 IF i=19 THEN PRINT AT i,o; 


5110 RETURN 


6000 PRINT AT p,as” 


HEN PRINT AT p,a;”G" 


010 IF p=149 THEN 
d=1: GO TO 6080 
6020 IF p=15 THEN 
6030 IF p=16 THEN 

a=13 
6040 IF p=17 THEN 
a=13+INT (RNDX2) 
6050 IF p=18 THEN 
a=13+INT (RNDX2) 
6060 IF p=19 THEN 
a=13+INT (RNDX2) 
6070 IF p=13 THEN 
a=13+INT (RNDX2) 
6080 PRINT AT p,a;5 


LET 


LET 


LET p= 


LET 
LET 
LET 
LET 


INK 


IF p=16 T 


15 ”.y"” 


6090 IF p=r AND a=t THEN GO 


4000 


LET 


LET 


LET 


LET 


LEFT 


CET 


TO 


6100 IF p=13 THEN PRINT AT p,a; 


6110 RETURN 


33OoO"ece<”*”" os. 


DIANA 


MEMORIA OCUPADA: 6918 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Altura seleccionada. 

Lugar de detención del movimiento del brazo. 
Coordenada vertical del dardo en la diana. 
Coordenada horizontal del dardo en la diana. 
Puntuación vertical. 

Puntuación de la tirada. 

Puntuación total. 

Número de tiradas. 

Variable de bucle FOR NEXT. 

Variable de bucle FOR NEXT. 
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GRAFICOS 


2020 “AR” “g” 
2070 “AA” “” 


3100 de og 
3110 “AA” 
3150 “a” 
3210 de dd 
3270 nal 5% 
3330 oe 
3390 de ES 
3450 di Sud 
3510 de e 
3570 ed 
3630 pa e 
4020 SD 
4180 AD 
ESTRUCTURA DEL PROGRAMA 
10 Inicio del programa y selección de colores. 
20 Valoración de las variables. 
100 Carga de los gráficos definibles por el usuario. 


1000 Ciclo de juego, representación gráfica del escenario de juego. 

2000 Ciclo de juego, primer movimiento del brazo. 

3000 Ciclo de juego, segundo movimiento del brazo. 

4000 Análisis, cálculos de puntuaciones, y representación gráfica de los 
resultados. 


COMENTARIO 


He aquí un programa sencillo en el aspecto de la programación, pero labo- 
rioso debido a su trabajo de representación gráfica. 

El juego consiste en una diana y un jugador que lanza los dardos, dicho ju- 
gador pasa por dos fases antes de lanzar el dardo, una que podríamos calificar 
de apuntar, movimiento vertical del brazo, y otra de lanzamiento, movimiento 
angular del brazo. De las dos fases se sale apretando cualquier tecla, al salir 
de la primera pasamos a la segunda, y al salir de la segunda sale lanzado el 
dardo, hace impacto y nos aparece el total, apretando otra tecla cualquiera 
pasamos a la siguiente tirada, para cambiar de jugador empezaremos de nue- 
vo el programa. 

Antes de pasar a comentarios concretos sobre el programa, y enlazando con 
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lo antes dicho de lo laborioso de este programa, sería conveniente destacar 
que cuando estamos trabajando con pixels (PLOT y DRAW) sólo es posible 
asignar colores distintos (atributos) a dos pixels contiguos cuando están, bien 
en líneas, bien en columnas distintas, y al hablar de línea y columna no nos 
estamos refiriendo a las coordenadas de alta resolución, sino a las de baja re- 
solución, o sea, 22 líneas pór 32 columnas. 

Esto es debido a que los atributos vienen controlados únicamente por 704 
posiciones de memoria, mientras que pixels haya 45056, por llo que cada 64 
pixels (cuadrado de 8 por 8 pixels) vienen controlados por una sola posición 
de memoria de atributos y, en consecuencia, todos los pixels de dicho cuadra- 
do tendrán los mismos atributos. Efectivamente, dichos cuadrados de ocho 
por ocho pixels con unos mismos atributos, coinciden con las coordenadas 
de baja resolución, o sea, con los lugares en la pantalla que ocupan los carac- 
teres; letras, números, gráficos definibles, etc... Es por esto que al principio 
decíamos que para poder asignar atributos distintos a pixels contiguos, estos 
han de estar en líneas o columnas, de baja resolución, distintos. 

El primer movimiento del brazo viene dado por un par de bucles encadena- 
dos de los cuales se sale pulsando una tecla (líneas 2049 y 2090), mientras que 
el segundo es una serie de dibujos alternados con la línea de fuga (3130, 3180, 
3240, 3300, 3360, 3420, 3480, 3540, 3600, 3660). Esto ha tenido que ser así 
debido a que en este ciclo de juego no nos encontramos, como en el anterior, 
con un mismo dibujo en el que lo único que cambia es alguna coordenada de 
forma constante, dado que el dibujo de la mano es un gráfico definible y el 
movimiento es angular, la variación de coordenadas es constante. 


SUGERENCIA 


La sugerencia para este programa está bien patente... música. 
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DIANA 


20 
100 
110 
120 
130 
140 
150 


GO TO 20: REM DIANA. $ ENFE 
PAPER 7: INK O: BORDER 3: R 


LET i=0: LET o=1 

FOR n=0 TO 31 

READ q 

POKE USR "*a*+n,g 

NEXT n 

DATA 2355,0,0,0,0,0,0,2535 
DATA BIN O1111000,BIN O10O01 


111,BIN 10000001,BIN O00O11101,BI 
N 00000001,BIN O0011101,BIN 1000 


0001, 


160 


255 
DATA BIN 10000000,BIN 11111 


110,BIN 11101010,BIN 11101011,BI 
N 10101010,BIN 10000010,BIN 0100 


0010, 


170 


BIN 00100100 
DATA O,BIN 11000000,BIN 111 


11100,2535,BIN 11111100,BIN 11000 
000,0,0 


1000 
1010 
1020 
1030 

AND 
1040 
1050 
1060 
1070 
1500 
1510 


INK 3 

FOR n=0 TO 40 STEP 53 

CIRCLE 200,113,n 

IF n<>0 AND n<>10 AND n<>20 
n<>30 THEN GO TO 1060 

FOR m=n+1 TO n+4 

CIRCLE 200,113,m 

NEXT m 

NEXT n 

INK 1 

PLOT 45,4: DRAW -14,1: DRAW 


O,-1: DRAW -6,0: DRAW 0,6: DRAW 


7,0: 


DRAW 12,-3: DRAW 1,-3 
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1520 PLOT 24,10: DRAW -4,21: DRA 
W 0,8: DRAW -2,20: DRAW -4,12,-1 
/3: DRAW 8,0: PLOT 34,71: DRAW 4 
,0: DRAW -4,-61 

1530 PLOT 17,50: DRAW -4,-46: DR 
AW 6,0: DRAW 0,1: DRAW 3,0 

1540 PLOT 15,10: DRAW 6,0 

1550 PLOT 29,63: DRAW 3,8 

1560 INK 4 

1570 PLOT 13,72: DRAW 0,16,-1/2: 
DRAW 0,8: DRAW -1,16: DRAW 4,15 
,-1/2: DRAW 10,-3: DRAW 3,-4: DR 
AW 6,-8: DRAW 4,-40 

1580 PLOT 18,113: DRAW -2,-28: D 
RAW 11,-20 

1590 PLOT 26,110: DRAW -2,-25: D 
RAW 9,-15 

1600 INK O 

1610 PLOT 15,130: DRAW -2,16,-1: 
DRAW 16,4,-5/2: DRAW -8,-7,1: D 

RAW -3,-5,3: DRAW -2,-8 

1620 INK 6 

1630 PLOT 32,148: DRAW 0,-5: DRA 

W 2,-7: DRAW -3,0: DRAW 0,-2: DR 

AW -5,-1: DRAW 4,-1: DRAW -1,-4: 
DRAW -5,0 

1640 INK O 

1650 PLOT 27,144: PLOT 25,146: D 

RAW 4,0 

2000 PRINT AT 18,18; FLASH 13 IN 

K 73 PAPER 5;"SELECCIONE";AT 19, 
183" ALTURA ” 

2010 FOR n=8 TO 10 

2020 PRINT AT n-1,5;" "s5AT n, 

Sj INK 43"AAA"3AT n,8;3 INK 6;3"B" 

2030 PAUSE 5 

2040 IF INKEY$<>"" THEN GO TO 3 

000 

2050 NEXT n 

2060 FOR n=9 TO 7 STEP -1 
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2070 PRINT AT n+1,5;" "SAT n, 

53 INK 43"AAA";AT n,8; INK 6;”B" 

2080 PAUSE 5 

2090 IF INKEY$<>"" THEN GO TO 3 

000 

2100 NEXT n 

2110 GO TO 2010 

3000 PRINT AT 18,18;" " 

¿AT 19,183” A 

3010 LET w=n: IF INKEYS$<>"" THEN 
GO TO 3010 

3020 PRINT AT 18,18; FLASH 15 IN 

K 75 PAPER 5;”"SELECCIONE"5AT 19, 

183” LONGITUD ” 

3030 PRINT AT w,5;” » 

3040 INK 4 

3100 PRINT AT w,85 INK 63"C"” 

3110 PRINT AT w,5;"AAA" 

3120 PAUSE 5 

3130 IF INKEY$<>""” THEN LET e=1 

: GO TO 4000 

3140 PRINT AT w,5;" " 

3150 PRINT AT w-1,85 INK 63"*"C" 
3160 PLOT 40,173-wX*8: DRAW OVER 
1523,4: PLOT 47,165-wX*8: DRAW 

OVER 1522,8 

3170 PAUSE 5 

3180 IF INKEY$<>"" THEN LET e=2 
: GO TO 4000 

3190 PRINT AT w-1,8;” ” 

3200 PLOT 340,173-w*8: DRAW OVER 
123,4: PLOT 47,165-wX*S: DRAW 

OVER 1;22,8 

3210 PRINT AT wm-2,7j3 INK 63"*"C" 

3220 PLOT 40,173-wXx8: DRAW OVER 
115,10: PLOT 47,165-wX*8: DRAW 
OVER 1513,16 

3230 PAUSE 5 

3240 IF INKEYS$<>"" THEN LET e=3 
: GO TO 4000 

3250 PRINT AT w-2,73” ” 
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3260 PLOT 40,173-wX%8: DRAW OVER 
115,10: PLOT 47,165-wX*8: DRAW 
OVER 1;13,16 

3270 PRINT AT w-3,7;5 INK 6;"cC" 

3280 PLOT 40,173-w%*8: DRAW OVER 
1315,16: PLOT 47,165-w*8: DRAW 
OVER 1;13,24 

3290 PAUSE 5 

3300 IF INKEY$<>"" THEN LET e=4 

: GO TO 4000 

3310 PRINT AT w-3,7;3" " 

3320 PLOT 40,173-wX*8: DRAW OVER 
1515,16: PLOT 47,165-wX*8: DRAW 
OVER 113,24 

3330 PRINT AT w-4,6;5 INK 63"C” 

3340 PLOT 40,173-w*8S: DRAW OVER 
158,23: PLOT 47,165-wX*8: DRAW 

OVER 158,31 

3350 PAUSE 5 

3360 IF INKEY$<>"" THEN LET e=5 

: GO TO 4000 

3370 PRINT AT w-4,6;3" ” 

3380 PLOT 40,173-w*8: DRAW OVER 
118,23: PLOT 47,165-wX*8: DRAW 

OVER 158,31 

3390 PRINT AT w-4,5;3 INK 63"C" 

3400 PLOT 40,173-wX*8: DRAW OVER 
130,23: PLOT 47,165-wX*8: DRAW 

OVER 130,31 

3410 PAUSE 5 

3420 IF INKEYS$<>"" THEN LET e=6 

: GO TO 4000 . 

3430 PRINT AT w-4,5;3"” ” 

3440 PLOT 40,173-wX*8: DRAW OVER 
150,23: PLOT 47,165-wX*8: DRAW 

OVER 150,31 

3450 PRINT AT w-4,63 INK 63"C" 

3460 PLOT 40,173-wXx8: DRAW OVER 
138,23: PLOT 47,165-wX*8: DRAW 

OVER 158,31 

3470 PAUSE 5 
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3480 IF INKEYS$<>"" THEN LET e=5 

: GO TO 4000 

3490 PRINT AT w-4,65 INK 6" ” 

3500 PLOT 40,173-wX*8: DRAW OVER 
158,23: PLOT 47,165-wX8: DRAW 

OVER 158,31 

3510 PRINT AT w-3,75 INK 6;"C” 

3520 PLOT 40,173-w%*8: DRAW OVER 
115,16: PLOT 47,165-wXx8: DRAW 
OVER 1;13,24 

3530 PAUSE S 

3540 IF INKEYS$<>"" THEN LET e=4 

: GO TO 4000 

3550 PRINT AT w-3,7;3" " 

3560 PLOT 40,173-wX8: DRAW OVER 
115,16: PLOT 47,165-wX8: DRAW 
OVER 1;513,24 

3570 PRINT AT w-2,75 INK 65;"C” 

3580 PLOT 40,173-wX8: DRAW OVER 
115,10: PLOT 47,165-wX*8S: DRAW 
OVER 1;13,16 

3590 PAUSE 5 

3600 IF INKEYS<>"" THEN LET e=3 

: GO TO 4000 

3610 PRINT AT w-2,75 INK 63” ” 

3620 PLOT 40,173-wXx8: DRAW OVER 
115,10: PLOT 47,165-wX*8: DRAW 
OVER 1313,16 

3630 PRINT AT w-1,85 INK 6;"C" 

3640 PLOT 40,173-wXx8: DRAW OVER 
1523,4: PLOT 47,165-wX8: DRAW 

OVER 1322,8 

3650 PAUSE 5 

3660 IF INKEYS<>"" THEN LET e=2 

: GO TO 4000 

3670 PRINT AT w-1,8;3" ” 

3680 PLOT 40,173-wX*8: DRAW OVER 
123,4: PLOT 47,165-wXx8: DRAW 

OVER 122,8 

3690 GO TO 3030 
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4000 PRINT AT 18,18;"” 
¡AT 19,185" 


4010 
4020 
4030 
4040 
4050 
=1 
4060 
=2 
4070 
y=2 
4080 
y=1 
4090 


u=yxS5 


4100 


u=yxXx7 


4110 


FOR 


NEX 


n=9 TO 18 
PRINT AT w-e+1,n5 INK 1 


Tn 


PRINT AT w-eti,n;3" ” 


IF w=7 THEN LET r=4; 


IF 


xr 


IF 


IF 


1F 


1P 


u=yx*10 


4120 


IF 


u=yX*10 


4130 


U=yxXx7 


4140 


u=yx5S 


AF 


E 


w=383 


w=9 


THEN 


THEN 


w=10 THEN 


e=1 


THEN 
THEN 
THEN 
THEN 
THEN 


THEN 


4150 LET i=i+u 
4170 PRINT AT 17,183 INK 7; 


R 33 FLASH 15”DARDO 


18; "DIANA 


9,2451 


4180 PRINT AT r,t; 


LET r=6: LET y 


LET r=10: 


LET r=11: 


LET t=29: 


LET t=27: 


LET t=25: 


LET t=249: 


LET t=22: 


LET t=20: 


LET 


LET 


LET 


LET 


LET 


LEFT 


LET 


LET 


PAPE 


"¿AT 18, 


*3AT 19,183;"TOTAL 


4190 LET o=o+1 
4200 PAUSE O: CLS 
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INK 05*D” 


"¿AT 17,24503AT 18,24ju;AT 1 


< GO TO 1000 


MEMORIA OCUPADA: 1830 bytes 


VARIABLES 


Número de orden en la cadena representante de la serie. 
Nivel de dificultad elegido. 

Coordenada vertical del dibujo. 

Tono de la música. 

Color, nota, a representar. 

Indice de partida perdida. 

Variable de los bucles FOR NEXT. 

Cadena representante de la sucesión. 

Carácter de la tecla apretada. 


CO 30 *0o000p0» 


LL Ur 


GRAFICOS 


No utiliza 


111 


ESTRUCTURA DE PROGRAMA 


10 Inicio del programa y selección de los colores. 
20 Selección del nivel de dificultad. 
100 Representación gráfica del escenario de juego. 


1000 Ciclo de juego, zona de generación de la serie. 

2000 Ciclo de juego, zona de repetición de la serie por parte del jugador. 
4000 Subrutina de fallo cometido por el jugador y final de partida. 
5000 Subrutina de representación gráfica y musical. 


COMENTARIO 


Tenemos aquí un juego muy sencillo y, a la vez, muy entretenido que con- 
siste en ir repitiendo una serie aleatoria de sonido y color que va generando 
el ordenador de forma que, cada vez que es repetida correctamente, aumenta 
su longitud en un elemento. La repetición de la serie se lleva a cabo mediante 
las teclas 3, 4, 5 y 6 que representan los respectivos cuatro colores. 

La representación gráfica se lleva a cabo mediante cuatro gruesas líneas ho- 
rizontales, una por cada color, que, según el nivel de dificultad seleccionado 
permanecen; en condiciones normales, en color blanco, azul o negro, confun- 
diéndose en este último caso con el color del fondo que también es negro. 
También en función del nivel de dificultad está el tiempo durante el que es 
visible y audible cada color y sonido (conviene aclarar, para quien no conozca 
este juego con anterioridad, que color y sonido van ligados, siendo el sonido 
un complemento o ayuda del color). Como ayuda al nivel más bajo de juego 
aparece, en una ventanilla, el número correspondiente al color que está en esos 
momentos en pantalla. 

Los poco iniciados encontrarán en este programa un interesante ejercicio 
de utilización y fragmentación de cadenas, pues, en si, la serie no es más que 
una cadena en la que los números 3, 4, 5 y 6 están dispuestos de forma total- 
mente aleatoria. 

En lo referente al trabajo de cadenas conviene destacar; como aumenta la 
cadena, léase serie si se prefiere, sumándole el nuevo elemento que se acaba 
de generar aleatoriamente (línea 1000); como fragmentando el elemento corres- 
pondiente al valor de la variable (a$(n)) de un bucle FOR NEXT, saliendo en 
cada ciclo del bucle a la subrutina de representación gráfica, conseguimos la 
representación gráfica ordenada de cada elemento de la serie, por supuesto 
el límite del bucle que acabamos de nombrar es el número de elementos de 
la cadena. 

En el caso de la repetición de la serie por el jugador, también se hará me- 
diante un bucle FOR NEXT (línea 2000) de límite el número de elementos de 
la cadena. 


hp 


Se apreciará como en la subrutina de representación gráfica (5000) nos po- 
dríamos haber ahorrado la variable d, pues en realidad d =f + (f-3)*4, pero te- 
niendo en cuenta todo lo expuesto y que vamos sobrados de memoria, se ha 
optado por usar la variable. 


SUGERENCIA 


Sería una posibilidad interesante que, una vez acabada la partida debido a ' 
un fallo del jugador, el ordenador pudiese repetir no sólo la serie correcta, si 
no también la serie con el fallo cometido. 
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SIMON 


1 GO TO 20: REM SIMO. $ ENFE 
10 INK 2: PAPER O: BORDER O: R 
UN 


20 PRINT AT 0,7;5”39 cs 

5 c5 
j CIS. ES TS 
c8 c89S 3 8 3 ES € 


3csdcdsgsSS 3 3 cidcid 
c8cdc8cicidcaes 3 3 cdcdacda 
scs8cs5 cc 53 3.5 
SS CcJCICICOIOS c8 3505 
3 c8 8 8 ec3d3 csdedseas” 
30 PRINT AT 10,7;3*”"g9 c5c5S c85 
ES CES S e 
c55c8 5 CS 
c35c55 ScSc5ScSas cs55csS cs 
cdedes3 35 eS cdades cs 35 
ro) COCHES 3 ES CESCS 
cS cssegss c53c5csosS 
3 cs cdcdos csss3ss 
cg cd cldsdcdas 3 38 Es” 
40 PRINT AT 19,12;5"390c3 4c3 4c3 
O: ES 
cs 3 Yes 
4c2": INK O 
SO IF INKEYS$<>"" THEN GO TO S 
0) 
60 IF INKEY$="" THEN GO TO 60 
70 LET bD$=INKEYS 
80 IF b$<>"1"” AND b$<>"2" AND 
b$<>"3" THEN GO TO SO 
90 LET c=VAL b$: LET g=0 
100 CLS : IF c=3 THEN GO TO 15 
0) 
110 FOR n=3 TO 15 STEP 4 
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120 LET d=.pn 

130 GO SUB 5090 

140 NEXT n 

150 LET a$="3": GO TO 1010 
1000 LET a$=a$+STR$ (3+INT (RNDX 
9)) 
1010 FOR n=1 TO LEN as$ 
1020 LET *+f=VAL as$(n) 

1030 GO SUB 5000 

1040 NEXT n 

1050 IF g=1 THEN . RETURN 
2000 FOR n=1 TO LEN as$ 
2010 IF INKEYS="" THEN GO TO 20 
10 
2020 LET b$=INKEYS 
2030 IF b$<>"3" AND b$<>"4" AND 
b$<>"5" AND b$<>"6" THEN GO TO 
z010 
2040 LET +=VAL b$ 
2050 GO SUB 5000 
2060 IF b$<>a$ín) THEN GO TO 40 
00 
2070 NEXT n 
2080 GO TO 1000 
4000 LET g=1 
4010 FOR n=0 TO 10 
4020 BEEP 1/20,-10: BEEP 1/20,0 
4030 NEXT n 
4040 GO SUB 1010 
4050 "PAUSE 1: PAUSE O: GO TO 10 
35000 IF +=3 THEN LET d=3: LET e 
=-10: GO TO 5040 
5010 IF +=4 THEN LET d=7: LET e 
=10: GO TO 5040 
5020 IF +=5 THEN LET d=11: LET 
e=20: GO TO 5040 
5030 IF +$=6 THEN LET d=15: LET 
e=40 
5040 PAPER +£ 
5050 PRINT AT d,0;”" 
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5060 IF c=1 THEN PRINT AT 21,15 
54 

5070 BEEP 1/(cXx2),e 

5080 IF c=3 THEN PAPER O: GO TO 
3100 

5090 PAPER 7: IF c=2 THEN PAPER 
1 

5100 PRINT AT d,0;5” 


5110 PRINT AT 21,153” ” 
5120 RETURN 
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$2 


Q0 *Q0Q00Y9DO0O7EX<X"*“ 


NAUFRAGOS 


MEMORIA OCUPADA: 4023 bytes 


VARIABLES 


Coordenada horizontal del cañón. 

Variable de carga (READ) de los gráficos definibles por el usuario. 
Número de náufragos. 

Coordenada horizontal del náufrago. 
Coordenada vertical del náufrago. 
Coordenada horizontal de la barca. 
Coordenada vertical de la barca. 

Puntuación. 

Coordenada horizontal del submarino. 
Coordenada vertical del submarino. 

Número de barcas de que dispone el jugador. 
Indice de existencia del submarino. 

Número de ciclos de juego. 

Indice aleatorio de la dirección del submarino. 
Carácter de la tecla apretada. 
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GRAFICOS 


1550 AE “g” 
1560 “A” “g” 
1589  “C” 
2070 “DE” 
3080  “F” 
3100 “GHI” 
3160 "GHI*" 


ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

100 Carga de los gráficos definibles por el usuario. 

140 Gráficos definibles por el usuario. 

1000 Representación gráfica del escenario de juego y valoración de 
variables. 


1500 Ciclo de juego, lluvia de paracaidistas. 
2000 Ciclo de juego, movimiento del jugador. 
3000 Ciclo de juego, movimiento del ordenador. 
9000 Subrutina de conteo de la puntuación. 
9100 Subrutina de análisis y disparo del cañón. 
9200 Subrutina de conteo y barcas. 


COMENTARIO 


El juego consiste en recoger los náufragos, náufragos paracaidistas, con una 
barca, el salvamento sólo se podrá llevar a cabo si se aborda al náufrago con 
la proa o con la popa, porque si intentamos hacerlo lateralmente lo que hare- 
mos es ahogarlo (claro, le pasamos con la barca por encima). La nota “incor- 
diante”” la da un submarino que, por colisión, va hundiendo náufragos y bar- 
ca. Para librarnos de dicho submarino podemos usar el cañón de la parte inferior 
de la pantalla. 

Tanto el número de náufragos, como el lugar donde caen es aleatorio, al 
igual que el movimiento del submarino. La barca la podemos controlar con 
las teclas 5, 6, 7 y 8 en el sentido que indican las flechas y el cañón con la 
4 y la 9, izquierda y derecha respectivamente, pulsando el Q para disparar, no 
está de más avisar que los disparos del cañón también matan náufragos. 

La lluvia de paracaidistas no es aleatoria pues se efectúa cada 100 ciclos de 
juego y viene controlada por la variable f. En vez de estar en una subrutina, 
dicha lluvia, se encuentra justo delante de lo que es ciclo de juego, de forma 
que cada 100 ciclos, en vez de empezar el ciclo de juego en la línea 2000 em- 
pieza en la 1500. 
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El control de contactos para salvar náufragos se hace por atributos (ATTR), 
mientras que su hundimiento se hace por el sistema de dibujar encima con 
atributos diferentes. El control del hundimiento de la barca y el del submarino 
se realizan por coordenadas. 

Los disparos del cañón, y para variar un poco, son dos puntos ”*:”” en vez 
del típico PLOT DRAW. 


SUGERENCIA 


El sistema de selección aleatoria del cambio de dirección del submarino lo 
hace exageradamente errático, esto es debido a que en cada ciclo de juego 
se hace depender su dirección de la sentencia RND, siendo, por ello escasos 
los ciclos de juego seguidos que el submarino continúa con la misma direc- 
ción. 
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NAUFRAGOS 


1 60 TO 20 
S REM naufragos,S ENFE 
10 PAPER 1: BRIGHT 1: RUN 
20 BORDER O: INK O 

100 FOR n=0 TO 71 

110 READ w 

120 POKE USR "a”"+n,w 

130 NEXT n 

140 DATA BIN 0O0011000,BIN O1111 
110,255,BIN 10000001,BIN 1000000 
1,BIN O1000010,BIN O1000010,BIN 
00100100 

150 DATA BIN O0100100,BIN 00011 
O000,BIN O1O011010,BIN OO111100,BI 
N O0011000,BIN O0011000,BIN O010 
0100,BIN 00100100 

160 DATA O,O,BIN O0011000,BIN 1 
0011001,BIN O1000010,BIN OO11110 
O,BIN OO0O111100,0 

170 DATA BIN 00000001,BIN 00000 
001,0,BIN 00000001,BIN 00000011, 
BIN 11111111,BIN O1111111,BIN OO 
111110 

180 DATA O,0,O,BIN 11000000,BIN 

0100000,BIN 10111110,BIN O11111 
10,BIN 11111100 

190 DATA BIN 00001100,BIN 00000 
100,BIN 00000100,BIN 0O0001110,BI 
N O00001110,BIN OO111110,0,0 

200 DATA O,O0,O,BIN O0001111,BIN 

00000010,BIN O1111111,BIN O1111 
111,BIN OO111111 

210 DATA BIN 00000111,BIN 00000 
111,BIN OO00O11111,BIN O0011111,BI 
N O00011111,255,255,2559 


120 


220 DATA 0,0,0,0,0,BIN 11111110 
,BIN 11111110,BIN 11111110 
1000 PRINT AT 0,0; PAPER 5;" 


1010 PRINT AT 21,0; PAPER 05 INK 
6;" PUNTOS 0000 BARCAS 3 

1020 LET q=15: LET u=15: LET i=1 

O: LET o0=0: LET d=0: LET s=3 

1030 LET +$=0: LET d=0 

1500 LET r=1+INT (RND*X10) 

1510 FOR n=1 TO r 

1520 LET t=1+INT (RNDX3O) 

1530 LET y=7+INT (RND*8) 

1540 FOR m=0 TO y 

1550 IF m<ó THEN PRINT AT m,t; 

PAPER 55" "5jAT m+1,t3 INK 6;”"A"; 

AT m+2,t;"B” 

1560 IF m>5 THEN PRINT AT m,t;3" 
"5AT m+1,t5 INK 653"A"5AT m+2,t;5 

”.g" 

1570 NEXT m 

1580 PRINT AT m,t;5" "5AT m+1,t5" 
"5AT m+2,tj INK 6;*C" 

1590 NEXT n 

2000 LET q$=INKEYS 

2010 IF q$="5" AND u>»1 THEN LET 
u=su-1: IF ATTR (i,u-1)=78 THEN 
LET o=0+10: GO SUB 9000 

2020 IF q$="6" AND i<17 THEN LE 

T izji+1 

2030 IF gq$="7" AND i>7 THEN LET 
i=i-1 

2040 IF q$="8" AND u<29 THEN LE 

T usut+t1: IF ATTR (i,u+2)=78 THEN 
LET o=0+10: GO SUB 9000 
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2050 IF q$=-="4" AND q>1 THEN LET 
q=9-1 

2060 IF q$="9" AND q<29 THEN LE 

T gq=q+1 

2070. PRINT AT i-1,u;” "AT it+1, 

uj” "5AT i,zu-13"”" ";AT ¡i,ut2;3" ” 
¿AT i,uj INK 63"”"DE” 

2080 PRINT AT 19,q5 INK 3;"9 c5 
"¿AT 20,g-15”"39 Sc8 ” 

2090 IF g$="0" THEN FOR n=18 TO 
8 STEP -1: PRINT AT n,gqti;"” ";A 
T n-1,q+153 INK 73":": BEEP 1/200 
¿20+2Xn: NEXT n: PRINT AT n,gti; 
" "s: GO SUB 9100 

3000 LET +£f=$+1 

3010 IF d>9 THEN :GO TO 3100 

3020 LET d=INT (RNDX11) 

3030 IF d=10 THEN GO TO 3060 

3040 IF +=100 THEN . LET £f=0: GO 

TO 1500 

3050 GO TO 2000 

3060 LET p=1+INT (RNDX29) 

3070 LET a=7?+INT (RNDX10) 

3080 PRINT AT a,pt+ti15 INK 9;"F” 

3090 GO TO 3040 

3100 IF d=10 THEN PRINT AT a,p;5 
INK 45"GHI": LET d=11: GO TO 30 

40 

3110 LET g=INT (RNDX3) 

3120 IF 39=0 AND p>1 THEN LET p= 

p-1: IF p-1=u+1 AND i=a THEN GO 
SUB 9200 

3130 IF g=1 AND a<17 THEN LET a 

=at1: IF at+ti=i AND u>=p AND u<p+ 

3 THEN GO SUB 9200 

3140 IF g=2 AND a>7? THEN LET a= 

a-1: IF 9-1=i AND u>=p AND u<p+3 
THEN GO SUB 9200 

3150 IF 9=3 AND p<28 THEN LET p 

=p+1: IF p+3=u AND i=a THEN GO 

=<'UB 9200 
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3160 PRINT AT a-1,p5” "5AT at+1 
.P.;” ”"5AT a,p-135 INK 43" GHI ” 

3170 GO TO 3040 

9000 INK 6: IF o<100 THEN PRINT 
AT 21,140 

9010 IF 0>99 AND ox1000 THEN PR 
INT AT 21,130 

9020 IF 0>999 THEN PRINT AT 21, 
1250 

9030 BEEP 1/10,15: BEEP 1/10,25: 
BEEP 1/10,33 

9040 INK O: RETURN 

9100 BEEP 1/7,-25 

9110 IF u=q OR u=q+i THEN GO SU 

B 9200 

9120 IF d>=10 THEN IF p=q THEN 
PRINT AT a,p;5” ": BEEP 1/3,-3 
O: LET d=0: LET o=0+25: GO TO 90 

00 

9130 RETURN 

9200 LET s=s-1 

9210 PRINT AT i,ujz” "5AT 21,27; 
INK ój3s 

9220 FOR n=0 TO 10: BEEP 1/20,-1 

O: BEEP 1/20,0: NEXT n 

9230 IF s>0 THEN LET i=10:% LET 

u=15: RETURN 

9240 PAUSE 1: PAUSE O: GO TO 10 
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RASTREADOR A 


S 
S 
= 
S 
S 
S 
= 
< 
» 
Ñ 
S 
sx 


X= 

5 
Aaa Y 
e. 


MEMORIA OCUPADA: 3092 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Coordenada vertical del dibujo de los ojos. 

Coordenada horizontal del dibujo de los ojos. 

Variable de bucle FOR NEXT. 

Variable de bucle FOR NEXT. 


35300 


GRAFICOS 


No utiliza 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 

20 Carga de los gráficos definibles por el usuario. 

100 Gráficos definibles por el usuario. 

190 Presentación, movimiento ojos y logotipo. 

440 Preparación color y carga del siguiente programa. 

500 Subrutina movimiento de ojos. 
COMENTARIO 


Programa de presentación y carga de gráficos definibles por el usuario, la- 
bores éstas, que no pueden llevarse a cabo en el programa principal, siguien- 
te, por falta de memoria libre. 

Es de destacar en este programa previo la necesidad de intercalar PAUSE 
entre los movimientos de los ojos, debido a la rapidez de ejecución de PRINT. 


SUGERENCIA 


Personalice este programa sustituyendo el logotipo ENFE por el suyo propio. 


RASTREADOR B 


MEMORIA OCUPADA: 7913 bytes 


VARIABLES 


Número aleatorio entre Q y 1. 

Máxima puntuación obtenida desde que se empezó a jugar, record. 
Número de vidas. 

Puntos. 

Coordenada vertical del módulo 1/6 de laberinto. 

Coordenada horizontal del módulo 1/6 de laberinto. 


<EUDXFON 
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QLO0 73737000" S*0-<+0(4(-_— 


L Ur 


10 
30 
100 
200 
1000 
1300 


Coordenada vertical de la salida. 
Coordenada vertical del perseguidor. 
Coordenada horizontal del perseguidor. 
Indice de cambio de dirección del perseguidor. 
Indice de cambio de sentido, 7 por 6. 
Indice de cambio de sentido, 6 por 7. 
Indice de cambio de sentido, 5 por 8. 
Indice de cambio de sentido, 8 por 5. 
Número de ciclos iniciales de juego. 
Coordenada vertical del jugador. 
Coordenada horizontal del jugador. 
Dirección del jugador. 

Variable de bucle FOR NEXT. 

Variable de bucle FOR NEXT. 

Nivel de juego seleccionado. 

Tecla apretada. 


GRAFICOS 


“” 
“pr 
as? 
“pg” 
ES 
44 D' 
“Mp” 
“G" 
141 H” 
“E” 
“G" 
pe 
ES 
41 H” 


dl 


ESTRUCTURA DEL PROGRAMA 


Inicio de programa y selección de colores. 
Instrucciones de manejo. 

Valoración de variables para primera partida. 
Valoración de variables. 
Construcción del laberinto. 


Nueva valoración de variables, preparación del escenario de juego. 
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1980 Ciclo de juego, parte sólo en activo hasta la aparición del perseguidor. 

2000 Ciclo de juego, parte del jugador. : 

3000 Ciclo de juego, parte del ordenador. 

4000 Subrutina de vida perdida. 

5000 Subrutina de representación gráfica del record. 

6000 Subrutina de representación gráfica de la puntuación. 

7000 Subrutina de selección y construcción aleatoria de los módulos 1/6 
laberinto. 


COMENTARIO 


Es este programa un claro ejemplo de construcción de un programa partien- 
do de otro programa diferente. 

Como base se ha partido del programa Laberinto, se ha respetado gran par- 
te del ciclo de juego; movimientos del jugador, lógica de seguimiento y movi- 
miento del ordenador, y se ha borrado el resto, procediendo, entonces, a cons- 
truir el nuevo programa. 

Se ha podido aprovechar gran parte del ciclo de juego, aunque se le hayan 
introducido pequeñas diferencias lo seguimos considerando como aprovecha- 
do, porque en el fondo los dos programas se asemejan, en sí son programas 
de la misma familia, aunque a la hora de verlos en acción tengan una repre- 
sentación gráfica bastante diferenciada. 

En el programa Laberinto nos encontramos con un típico juego de fugitivo, 
perseguidor y laberinto, con las mejoras de un laberinto grande, muy compli- 
cado y totalmente aleatorio, lo que implicaba una lógica de seguimiénto muy 
sofisticada. En este programa nos encontramos, con... lo desconocido, y no 
es broma. 

Este juego consiste en atravesar la pantalla de izquierda a derecha, y salir 
por una salida de la que sólo sabemos que está a la derecha de la pantalla, 
pero que puede estar a cualquier altura. ¿Qué es esto de atravesar la pantalla?, 
muy sencillo; en realidad es atravesar un laberinto, pero un laberinto que no 
se ve, un laberinto en el que sólo se iluminan aquellos pasillos por los que he- 
mos pasado. Desde luego que este laberinto es bien distinto al del otro pro- 
grama, no sólo en dificultad, es bastante más sencillo, sino también en 
concepción. 

El laberinto de este juego está dividido en seis partes o huecos iguales. Di- 
chos seis huecos se rellenan con un laberinto, de tamaño 1/6 del grande, del 
cual hay seis modelos básicos o esqueletos que después se completan de un 
modo aleatorio. La dualidad de procesos aleatorios, a saber; módulo 1/6 a es- 
coger aleatoriamente para cada hueco y terminación aleatoria de dichos mó- 
dulos, nos dan un alto grado de aleatoriedad. 

La diferencia entre un nivel de juego y otro estriba en el tiempo que tarda 
en aparecer el perseguidor y en que, en el nivel más alto, por donde pasa el 
perseguidor vuelve a hacerse invisible el laberinto. 
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SUGERENCIA 


Una tercera posibilidad de representación gráfica del juego, y además muy 
vistosa, sería que el perseguidor también dejase rastro, pero de otro color dis- 
tinto al del jugador. 
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RASTREADOR - A 


160 TO 20 
10 INK O: PAPER O: BORDER O: R 


UN 
20 FOR n=0 TO 71 
30 READ q Ñ 
40 POKE USR "a"+n,q 
50 NEXT n 


100 DATA BIN 00011000,BIN 00011 
000,BIN 01000000,BIN O0111100,B1 
N O0011010,BIN OO0111000,BIN 0100 
1000,BIN 00100100 

110 DATA BIN 00011000,BIN 00011 
000,BIN 00000100,BIN 00111100,B1 
N O0111000,BIN O0010100,BIN 0001 
0100,BIN 00010100 

120 DATA BIN 00011000,BIN 00011 
000,BIN 00000100,BIN O0111100,BI 
N O0111000,BIN 00011000,BIN 0001 
0100,BIN 00000100 

130 DATA BIN 00011000,BIN 00011 
000,BIN 00000010,BIN OO0O111100,B1 
N O1011000,BIN O0011100,BIN 0001 
0010,BIN 00100100 

140 DATA BIN O1011000,BIN O10O11 
000,BIN 01000000,BIN O0111100,BI 
N O0011100,BIN 00011000,BIN 0010 
1110,BIN 00100000 

150 DATA BIN O1011000,BIN O1011 
000,BIN 0O1000000,BIN O0111100,BI 
N O0011100,BIN 00011000,BIN 0010 
1000,BIN 00101000 

160 DATA BIN 00011010,BIN 00011 
O10,BIN 00000010,BIN 0O0111100,BI1 
N OO111000,BIN O00011000,BIN 0001 
0100,BIN 00000100 
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170 DATA BIN 00011010,BIN 00011 
O10,BIN 00000010,BIN OO0111100,BI 
N O0111000,BIN O0011000,BIN O111 
0100,BIN 00000100 

180 DATA O,BIN 01000000,BIN 001 
O01100,BIN O1111100,BIN O1110000, 
BIN 11101111,BIN 10100000,BIN 10 
100000 

190 LET a=1: LET b=0: GO SUB 50 
O: GO SUB 520: PAUSE 50 

200 GO SUB 500: GO SUB 510: PAU 
SE 50 

210 GO SUB 500: GO SUB 530: PAU 
SE 100 

220 FOR n=1 TO 13 

230 LET b=n: GO SUB 500: GO SUB 
530 

240 NEXT n 

250 GO SUB 500: GO SUB 510: PAU 
SE 50 

260 GO SUB 500: GO SUB 530: PAU 
SE 50 

270 GO SUB 500: GO SUB 520: PAU 
SE 50 

280 GO SUB 500: GO SUB 540: PAU 
SE 50 

290 FOR n=2 TO 9 

300 LET a=n: GO SUB 500: GO SUB 
540 

310 NEXT n 

320 PAUSE 50: GO SUB 500: GO su 
B 320: PAUSE 50 

330 GO SUB 500: GO SUB 510: PAU 
SE 50 

340 GO SUB 500: GO SUB 530: PAU 
SE 50 

350 GO SUB 500: GO SUB 510: PAU 
SE 50 

360 FOR n=12 TO 6 STEP -1 

370 LET b=n: GO SUB 500: GO SUB 
510 
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380 NEXT n 

390 PAUSE 350: GO SUB 300: GO SU 
B 520: PAUSE 30 

400 GO SUB 3500: PRINT AT at+1,b+ 
4;"9c8c8”;AT a+1,b+143"9c8c8”;AT 
a+t2,b+4;"39c8c8"jAT a+2,b+149;”"9c 
8c8”": PAUSE 100 

410 PRINT AT 10,145 BRIGHT 13 1 
NK 2;"ENFE"3jAT 12,125 INK 45"SOF 
TWARE * 

420 INK 6: PLOT 80,8: DRAW 0,48 
: DRAW 0,-24,-4: DRAW 20,-24 

430 PRINT AT 20,133 "ASTREADOR" 
440 INK O: LOAD *”* 

500 PRINT AT a-1,b3 INK 73" 

"AT a-1,b+12;3” "5AT a,b+ 

1;"9 c8c8c8c8 "j¡AT a,b+13;*"39 c8c 
38c8c8 "¡AT at+1,b;3"g9 c8c8c8c8c8c8 
"¡AT a+1,b+12;*"39 c8c8c8c8gc8cs ” 
¡AT a+2,b;5"39 c8c8c8c8c8c8 "jAT a 
+2,b+12;"39 c8c8c8c8c8c8 "¡AT at+3 
,b+1;5"39 c8c8c8c8 "¿AT a+r3,b+13;5” 
g c8c8c8gc8 ": RETURN 

Si1i0 PRINT AT a+1,b+2;"9c8c8";AT 
a+1,b+14;5*"g3c8c8";AT a+2,b+2;"9c 
3c8";jAT a+2,b+14;"9c8c8": RETURN 


520 PRINT AT a+1,b+3;"9c8c8";AT 
a+t1,b+15;"9c8c8";AT a+2,b+3;"39gc 
8c8";AT a+2,b+15;*"9c8c8": RETURN 


530 PRINT AT at+1,b+43"39c8c8";AT 
a+t1,b+16;"gc8c8";jAT a+2,b+4;"39c 
8c8";AT a+2,b+16;”9c8c8": RETURN 


540 PRINT AT at+2,b+3;"39c8c8";AT 


a+t2,b+15;3"39c8c8";AT a+3,b+3;"39c 
38c8”";AT a+3,b+15;5"39c8c8": RETURN 
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RASTREADOR - B 


1 GO TO 20 

10 PAPER O: BORDER O: RUN 

20 BRIGHT 1: INK 3 

30 PRINT AT 0,8;"Usted se encu 
entra en unlaberinto a oscuras, 
en donde lounico que puede ver 
es su ras-tro luminoso , y en d 
onde, de lasalida, solo sabe que 
esta haciala derecha , desconoc 
iendo a quealtura exactamente.” 

40 PRINT AT 9,8;"Para moverse 
por el la-berinto utilice las t 
eclas 5,6,7,8 en el sentido que 
indican lasflechas. Por cada lab 
erinto queconsiga atravesar se 
le sumarani00 puntos.” 

50 PRINT AT 17,8;"Seleccione e 
l nivel dejuego pulsando 1 pp 
ara el nivelaficionado y 2 par 
a el  nivelprofesional.” 

70 IF INKEYS<>"" THEN GO TO 2? 
O 

80 IF INKEY$="" THEN GO TO 80 

90 LET g$=INKEYS: IF gs$<>"1" A 
ND g$<>"2" THEN GO TO 70 

100 LET z=0: LET o0=0 

200 LET k=3: LET-p=0 
1000 PAPER O: INK O 
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1010 PRINT AT 0,0;"gc8c8c8c8c8c8s 
c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8 
c8c8c8c8c8c8c8c8c8c8c8 c 
8 c8 c8c8ca 
ce ce c8c8c8 
c8 c8 E 
8c8c8 ce cs 
c8cagc8 
c8c3c8 cS 
c8 c8c8c8 c8 
ce ] c8c8c8 
c8 c8 c8c8c8 
ce ce c8cas 
c8c8c8cg —c3c8c8c8c3c8c8c8 —c8c8 
c8c8c8c38c3cg —rc38c8c8c8c8” 
1020 PRINT AT 11,0;”"39cCc8 
c8 c8 c8c808 
c8 cs c8c8c 
[=] c8 ES 
c8c8c8 c8 c8 
c8c8c8 
c8c3c03 ce 
ce c8c38c8 c8 
c8 c8c8c8 
c8 cs c8c8c8 
c8 cs c8c 
3c8c8c8c8c8c8c8c8c8c8c8c8c38c8c8c 
8c8c3c3c3c38c3c8c8c8c8c8c8c8c8c8” 
1030 LET u=1: LET y=1: GO SUB 70 
00 
1040 LET u=i: LET y=11: GO SUB 2? 
000 
1050 LET u=1: LET y=21: GO SUB ?7 
000 
1060 LET u=11: LET y=1: GO SUB 7? 
000 
i0/0O LE 
7000 
1080 LET u=11: LET y=2i: GO SUB 
7000 


Y u=ii3 LET y=11: 60 SUB 
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1270 PRINT AT 21,05 INK 6; PAPER 
O; "PUNTOS 0000 VIDAS RECORD 

0000" 

1280 GO SUB 5000: GO SUB 6000: R 

ESTORE 

1290 PRINT AT 21,185 INK 6; PAPE 

R 03k 

1300 LET i=(5+(10XINT (RNDXZ2)))+ 
INT —(RNDX5) 

1310 LET e=0: LET +=0: LET v=0: 

LET r=0: LET s=0: LET t=0: LET w 
=0: LET j=0 

1320 IF j=0 THEN FOR n=30 TO 50 
STEP 5: BEEP 1/25,n: NEXT n: PR 
INT AT 1,15"B": LET a=1: LET b=1 
1330 IF p=0 AND k=3 THEN PAUSE 
1: PAUSE O 

1980 IF j=40/VAL 9% THEN PRINT 

AT 1,13"F": LET e=1: LET £=1 
1990 GO TO 2010 

2000 BEEP 1/250,15 

2010 PAPER 6: INK 1: LET d$=INKE 

Y$: IF e=a AND f=b THEN GO TO 4 

000 

2020 IF d$<>"5" AND d$<>"6" AND 
d$<>"7" AND d$<>"8" THEN GO TO 
2090 

2030 IF d$<>"" THEN LET d=VAL d 

$ 

2040 IF d=5 AND POINT (8X(b-1),1 
75-8%a)=0 THEN PRINT AT a,b-13"” 
A ": LET b=b-1: BEEP 1/250,50 
2050 IF d=6 AND POINT (8Xb,175-8 

*ía+1))=0 THEN PRINT AT a,b” ” 
¡AT at+1,b5"B": LET a=a+1: BEEP 1 
/250,50 

2060 IF d=7 AND POINT (8Xb,175-8 
X*(a-1))=0 THEN . PRINT AT a,b;5" * 
¡AT a-1,b;3"C": LET a=a-1: BEEP 1 
/250,50 
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2070 IF d=8 AND POINT (8X(b+1),1 
75-8%ka)=0 THEN PRINT AT a,b;j” D 
": LET b=b+1: BEEP 1/250,50 
2080 IF a=i AND b=30 AND d=8 THE 
N LET p=p+100: GO SUB 6000: BEE 
P 1/10,15: BEEP 1/10,15: BEEP 1/ 
10,15: BEEP 1/5,30: BEEP 1/10,15 
: GO TO 1000 
2090 IF j<40/VAL 9% THEN LET j= 
j+1: GO TO 1980 
2100 IF v=1 THEN LET z=INT (RND 
*2): IF z=0 THEN GO TO 3050 
3000 PAPER 0: INK 3: IF 9g$="1"” T 
HEN  INK O: PAPER 6 
3010 IF a»e AND POINT (8Xf,175-8 
X*(e+1))=0 AND r=0 THEN PRINT AT 
e,tfj” "¡AT e+t1,f3"F”": LET e=e+1 
: LET t=0: LET w=0: GO TO 2000 
3020 IF ace AND POINT (8%f,175-8 
*(e-1))=0 AND s=0 THEN PRINT AT 
e,fj” "¡AT e-1,f53"G6": LET e=e-1 
: LET t=0: LET w=0: GO TO 2000 
3030 IF b>f AND POINT (8%(4+1),1 
75-8%e)=0 AND t=0 THEN PRINT AT 
e,f;" H”": LET 4=4$+1: LET r=0: L 
ET s=0: GO TO 2000 
3040 IF b<f AND POINT (8X(f-1),1 
75-8%e)=0 AND w=0 THEN PRINT AT 
e,f-1;"E ": LET $=4-1: LET r=0: 
LET s=0: GO TO 2000 
3050 IF r=1 AND POINT (8x*f,175-8 
*(e-1))=0 THEN PRINT AT e,f;” ” 
¡AT e-1,f5"G6": LET e=se-1: LET v= 
0: GO TO 2000 | 
3060 IF s=1 AND POINT (8Xf,175-8 
*(e+1))=0 THEN PRINT AT e,f;” ” 
¡AT e+1,45"F": LET e=se+1: LET v= 
0: GO TO 2000 
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3070 IF t=1 AND POINT (8X*(+-1),1 
75-8%e)=0 THEN PRINT AT e,f-13” 
E ": LET £=$-1: LET v=0: GO TO 2 
000 

3080 IF w=1 AND POINT (8X(++1),1 
75-8%e)=0 THEN PRINT AT e,f;” H 
": LET f=$+1: LET v=0: GO TO 200 
0) 

3090 LET z=INT (RNDX*Z) 

3100 IF r=1 OR s=1 THEN LET t=z 
: LET w=ABS (z-1): LET r=0: LET 
s=0: LET v=1: GO TO 2010 

3110 IF t=1 OR w=1 THEN LET r=z 
: LET s=ABS (z-1): LET t=0: LET 
w=0: LET v=1: GO TO 2010 

3120 IF z=0 AND a»e THEN LET r= 
1: GO TO 2010 

3130 IF z=0 THEN LET s=1: GO TO 
2010 

3140 IF b>f THEN LET t=1: GO TO 
2010 

3150 LET w=1: GO TO 2010 

4000 LET k=k-1: PRINT AT 21,18; 
INK 65 PAPER O5k5AT a,bj INK 2; 

PAPER 7; FLASH 153"1”": FOR n=45 T 
O -15 STEP 5: BEEP 1/15,n: NEXT 
n: FOR m=0 TO 20: BEEP 1/40,-25: 
BEEP 1/40,-5: NEXT m 

4010 IF k>0 THEN GO TO 1000 
4020 IF p>»o THEN LET o=p 

4030 PAUSE 1: PAUSE O: GO TO 200 
5000 INK 6: PAPER O: IF 0>0 AND 
o<100 THEN PRINT AT 21,30;0 
5010 IF 0>=100 AND o<1000 THEN 

PRINT AT 21,29;0 

5020 IF 0>=1000 THEN PRINT AT 2 
1,2850 

5030 INK O: PAPER 7: RETURN 

6000 INK 6: PAPER O: IF p>O AND 
p<100 THEN PRINT AT 21,9;5p 
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6010 IF p>=100 AND px<1000 THEN 
PRINT AT 21,3;p 

6020 IF p>=1000 THEN PRINT AT 2 
1,75p 

6030 INK O: PAPER 7: RETURN 

7000 LET x=INT (RNDX2) 

7010 GO SUB (7100+(100X%*INT (RNDX 

6))) 

7020 RETURN 

7100 PRINT AT u+1,y+1;5"9c8c8 
5c8"jAT u+tz,y+ti;j*c5c8 caca8* jáÁ 
utó6, y+2;"c8c8 c8c8";AT ut+7, y 

25"c8c8 c8ca” 

7110 FOR n=0 TO 4 

7120 IF x=0 THEN PRINT AT utn,y 
+4;"3c8";AT u+4t+tn,y+2;5"39Cc8": GO 
TO 7140 

7130 PRINT AT ut+4+n,y+5;"9c8";AT 
ut+titn,y+73"9c8"” 

7140 NEXT n 

7150 RETURN 

7200 PRINT AT u+S, y+3;"90c8 c8 c8 

c8”"jAT u+?7, y+2;5"9c8 c8 c8c8” 

7210 FOR n=0 TO 6 STEP 2 

7220 PRINT AT u+l1,y+1i+n5"9c8";5AT 
ut3, y+1tn;*"3c8g” 

7230 1F x=0 THEN PRINT AT ut+2,y 
+titn;"39c8”"3AT u+4,y+1+tn3"90c8": G 

o TO 7250 

7240 PRINT AT ut+l1,y+n;5"9c8"5AT u 
+3, y+2+n;3"9c8"jAT u+5S, y+n;3"9c8”;5 

AT u+?7,y+3+tn;"9c8” 

7250 NEXT n 

7260 IF x=0 THEN PRINT AT u,y+3 
3"9c8 c8"jAT ut+ó6, y+2;3"9c8g c8 

c8c8”";jAT u+8,y+94;3"c8": RETURN 

7270 PRINT AT u+5S, y+13"9c8"3AT u 
+7,y+t6;5"9Cc8": RETURN 

7300 PRINT AT u+2,y+23”"39c8 ce” 
¡AT utó, y+2;5”"90c8 ce” 


e 
3 
+ 
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7310 FOR m=0 TO 8 STEP 4: FOR n= 

O TO 6 STEP 2 

7320 IF x=0 THEN PRINT AT ut1i+n 
sy+tm53"39c8": GO TO 7340 

7330 PRINT AT utm, y+1+n5"”"9c8” 

7340 NEXT n: NEXT m 

7350 FOR m=0 TO 4 STEP 4: FOR n= 

O TO 3 STEP 4 

7360 IF x=0 THEN PRINT AT u+n,y 

+2+m5"9Cc8": GO TO 7380 

7370 PRINT AT u+2+tm,y+tn;3"39c8” 

7380 NEXT n: NEXT m 

7390 RETURN 

7400 IF x=0 THEN PRINT AT u+i,y 

+15"9c8c8 Cc8c8”";AT u+2,y+1;5"g93Cc8 

c8"j3AT u+3,y+3;"3c8c383";AT ut+ 

4,y+3;"9Cc8 Cc8”"jAT u+5S, y+5;"”"9c8c 
"¿AT utó, y+3;5"908 c8";jAT u+? 

,»y+3;5"9c8c8 c8c8": RETURN 

7410 PRINT AT ut+tl1,y+35"”"39c8";5AT u 

+t2,y+253"9c8c8c8c8c";AT ut+3,y+5;5” 

gc8c8c8”;AT u+49,y+4;53"9c8c8”"j3AT u 

+5,y+25"9c8c8c8”";AT ut+ó6, y+4;5"39c8 

c3ac8c8”;AT u+7?, y+tó653"9Cc8": RETURN 


7500 PRINT AT ut+i, y+2;5"39c8c8c8c8 
c8c8”";AT u+2,y5"9gc38”";AT ut+t3, y+2; 
"gc8 c8c8 c8";AT ut+4, y+2;3”"9Cc8 
c8";AT u+5, y+2;"9c8 c8c8 c8”";AT 
utó,y+9;3"9c8";AT u+?7, y+2;3*"9c8c8 
c8c8cg8c8” 
7510 IF x=0 THEN PRINT AT u,y+2 
5"39c8";3AT u+2,y+45"gc "¡AT utó6, y 
+5;"90c8”";AT u+8S, y+7;5"9Cc8": RETUR 
N 
7320 PRINT AT u+3, y+15"*"39c8c8 c8c 
3c8c8*jAT u+5, y+2;*9c8c8c8c8 csc 
8": RETURN 
7600 PRINT AT u+1,y+2;3"90c8 908” 
¡AT u+4, y+2;3"390c8 Cc8”";3AT u+?7?, y+2 
3"9c8 c8 cs” 


139 


7610 IF x=0 THEN PRINT AT u,y+té6 
3"9c8”";jAT u+2,y+1;"39c8 c8 c8”; 
AT u+3,y;j"9cg8 c8 cs”";jAT u+4, y+ 
8;”"9c8"jAT u+S, y+43"9c8 Cc8”jAT 
utó6,y+3;5"390c8 c8”"jAT u+8, y+1;”"gc 
8 c8": RETURN 
7620 PRINT AT u,y+4;3"9c8";AT u+2 
s»yi"39gc8 c8 c8”"jAT u+3, y+1;"393c8 
c8 c8”*";jAT u+S, y+3;"90c8 c8”jA 
T utó6,y+4;5"9Cc8 Cc8”"jAT u+8S, y+33” 
gcse c8”: RETURN 
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3370 


2010 


PARCHIS A 


MEMORIA OCUPADA: 2142 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Coordenada horizontal de cada letra del logotipo. 

Variable de bucle FOR NEXT. 

Variable de bucle FOR NEXT. 


GRAFICOS 


MEL EEES DUE LEE LEE EXCEL: EoLL ELL: EL" 
“LLL L LEE LLL” 
de E ” le ” a ” E ” PAL ” 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de los colores. 
20 Aumento de la memoria disponible para el Basic, (sólo para el Spec- 
trum de 16 K.) 


1000 Carga de los gráficos definibles por el usuario. 

1500 Presentación. 

1640 Preparación de los colores y carga del programa principal. 

2000 Subrutina de movimiento de la parte vertical de las letras del logotipo. 


COMENTARIO 


Programa previo al principal en el cual se cargan los gráficos definibles por 
el usuario, que, por falta de memoria, no se pueden cargar en el principal. Ade- 
más también se gana un poco de memoria con un CLEAR, línea 20, y se hace 
la presentación que estará en pantalla mientras se carga el programa principal. 

Dos puntos a destacar: primero, este programa también se utiliza para dibu- 
jar los cuatro cuadrados de color de los vértices del tablero de parchís que se 
utilizarán después, esto es debido al agotamiento prácticamente total de me- 
moria del siguiente programa; segundo, ya que los cuatro cuadrados son into- 
cables y la pantalla está totalmente llena en sentido vertical, la leyenda de car- 
ga «PROGRAM:....» tapará algo cuando se imprima, luego para que no estro- 
pee el aspecto del conjunto o nos perjudique los cuatro cuadrados, haremos 
que tape la línea 13, “SOFTWARE”, mediante el PRINT AT 11,0;” ” de la 
línea 1649, como es habitual dicha leyenda no será visible por haber seleccio- 
nado antes, como tinta, el mismo color del papel. 


SUGERENCIA 


Sustituya el logotipo por lo que se le antoje. 


142 


L”*0 


9020 
9030 


PARCHIS B 


MEMORIA OCUPADA: 8133 bytes 


VARIABLES 


Primera ficha amarilla. 

Segunda ficha amarilla. 

Tercera ficha amarilla. 

Cuarta ficha amarilla. 

Primera ficha roja. 

Segunda ficha roja. 

Tercera ficha roja. 

Cuarta ficha roja. 

Coordenada vertical de la ficha en análisis en ese momento. 
Coordenada horizontal de la ficha en análisis en ese momento. 
Corrección a introducir en la coordenada vertical de la ficha en análisis 
si su nueva ubicación está ocupada. 

Corrección a introducir en la coordenada horizontal de la ficha en análi- 
sis si su nueva ubicación está ocupada. 

Valor de la ficha en análisis. 

Valor del dado del jugador. 

Valor del dado del ordenador. 

Valor extra a sumar a una ficha como bonificación. 

Ficha elegida. 


GRAFICOS 


"“PQTUPO” “POPOPO” *"POPOPO” “POPOPO” “POPOTU* 
“PQPQPO” “POPAQPO” “POPQPO”. 

“NNNNRNNNL MNNNNNNNN “JUGADOR” 00005000 L M 
00000000” “R” ”S” “NNNNNNNN ML NNNRNNNN” 
“00000000M LO00S0000” 

“NNNNNNN L” “0000000 M” “M NNNNNNN” “L 0000000” 
“PQPQPO” *“PQPOQPO” “POAPQPO” “TUPAQPO” *“PQPQPO” 
*POPOPO" "POPOPO”**"PQTUPO” 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de los colores. 

100 Valoración de variables. 

5000 Ciclo de juego, selección de ficha por parte del jugador. 

5100 Ciclo de juego, análisis de ficha pedida si es A. 

5200 Ciclo de juego, análisis de ficha pedida si es B. 

5300 Ciclo de juego, análisis de ficha pedida si es C. 

5400 Ciclo de juego, análisis de ficha pedida si es D. 

5500 Ciclo de juego, selección de ficha por parte del ordenador. 

6000 Ciclo de juego, análisis de ficha pedida por el ordenador. 

8500 Subrutina de análisis fichas ordenador, comprobación de si la ficha 
entra en el centro. 

8600 Subrutina de análisis fichas ordenador, comprobación de si come fi- 
chas jugador. 

8700 Subrutina de análisis fichas ordenador, comprobación de si va a 
seguro. 

8800 Subrutina de análisis fichas jugador, comprobación de si entra cen- 
tro, come o va a seguro. 

9000  Subrutina de representación gráfica. 

919% Zona de subrutina de representación gráfica de dibujo de fichas. 

9500 Subrutina que asigna valores a las coordenadas y sus correcciones 
en base a la zona del tablero que ocupan. 


COMENTARIO 


En este programa nos encontramos con dos factores que influyen decisiva- 
mente en el gasto de memoria, a saber, tener que repetir parte de la lógica 
para cada ficha en juego y tener que llevar una gestión de pantalla lo suficien- 
temente rápida como para que el juego no se haga pesado. Tanto es así, que 
se ha tenido que prescindir de alguna regla adicional (como las barreras) por 
falta de memoria, y se ha tenido, también, que utilizar la memoria de los gráfi- 
cos definibles no utilizados (para ello se hizo un CLEAR en el programa previo). 

Respecto a lo antes expuesto de la rapidez en la gestión de pantalla ha im- 
plicado el uso de POKE a la zona de los atributos de pantalla, nótese que el 
contenido de esos POKE se ha puesto en decimal en vez de binario, como se- 
ría más cómodo, esto también para lograr ahorro de memoria. Aunque en un 
principio se intentó no utilizar bucles en esta gestión de pantalla, no ha podido 
ser por falta de memoria, por lo que se verá que algunos de los POKE antes 
mencionados entran por bucle y DATA. 

Es de destacar que en la zona del ciclo de juego correspondiente al movi- 
miento del ordenador, no están, como sería de esperar, totalmente separadas 
las fases elección de ficha de la de análisis de ficha elegida, pues, como es 
lógico, parte de los cálculos que han de hacer en la elección de ficha son los 
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mismos que después se tendrían que repetir en la fase de análisis, por ejem- 
plo; si el dado marca cinco, y para seleccionar ficha ya se ha comprobado si 
queda alguna por sacar, después en el análisis de ficha elegida no hará falta 
volverlo a comprobar. 


SUGERENCIA 


Casi que no hace falta decirlo pero por si alguien aún no ha caído: 
En caso de tener la versión de 48 K, suprimir el CLEAR del programa ante- 
rior y realizar la lógica que conlleva la introducción de la regla de las barreras. 
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PARCHIS - A 


1 GO TO 20 

10 INK O: PAPER 7: RUN 

20 CLEAR 32687 
1000 FOR n=0 TO 79 
1010 READ a 
1020 POKE USR ”1"+n,a 
1030 NEXT n 
1040 DATA 255,BIN O1111111,BIN O 
O111111,BIN OO0O11111,BIN 0000111 
1,BIN 00000111,BIN 00000011,BIN 
00000001 
1050 DATA 255,BIN 11111110,BIN 1 
1111100,BIN 11111000,BIN 1111000 
O,BIN 11100000,BIN 11000000,BIN 
10000000 
1060 DATA 255,BIN 10000001,BIN 1 
0000001,BIN 10000001,BIN 1000000 
1,BIN 10000001,BIN 10000001,BIN 
10000001 
1070 DATA BIN 10000001,BIN 10000 
001,BIN 10000001,BIN 10000001,BI 
N 10000001,BIN 10000001,BIN 1000 
0001,255 
1080 DATA 255,BIN 10000000,BIN 1 
0000000,BIN 10000000,BIN 1000000 
O,BIN 10000000,BIN 10000000,255 
1090 DATA 255,BIN 00000001,BIN O 
0000001,BIN 00000001,BIN 0000000 
1,BIN 00000001,BIN 00000001,255 
1100 DATA 255,BIN 10000001,BIN 1 
0000001,BIN 10000001,BIN 1000000 
1,BIN 10000001,BIN 10011001,BIN 
10100101 
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1110 DATA BIN 10100101,BIN 10011 

001,BIN 10000001,BIN 10000001,BI 

N 10000001,BIN 10000001,BIN 1000 

0001,255 

1120 DATA 255,BIN 10000000,BIN 1 

0000001,BIN 10000010,BIN 1000001 

O,BIN 10000001,BIN 10000000,255 
1130 DATA 255,BIN 00000001,BIN 1 

0000001,BIN O1000001,BIN 0100000 
1,BIN 10000001,BIN 00000001,255 
1500 FOR n=0 TO 7: FOR m=0 TO 7 
1510 PRINT AT n,m; PAPER 63" "A 
T nym+14; PAPER 43" "5AT n+14,m; 
PAPER 5;”" "5AT n+14,m+14; PAPER 
1 

1520 NEXT m: NEXT n 

1530 LET 1=1: GO SUB 2000 

1540 LET 1=6: GO SUB 2000 

1550 LEY 1=9: GO SUB 2000 

1560 LET l=11: GO SUB 2000 

1570 LET 1=16: GO SUB 2000 

1580 PRINT AT 8,2;5"LLL LL L LLLL 


LLEL*+AT 9,23” Ct EE 1” 
AT. 107,2 "LL (LL. EL LLE. LLL*SAT 4 
E, E. ki E "AT 12,253”"L 
CL E LL: L LLLL";3AT 13,63"SOFT 
WARE” 


1390 LET m=0 

1600 FOR n=m TO m+ó STEP 2 

1610 PRINT AT n,8;53"PAR";5AT n+1,1 
O053"CHIS” 

1620 NEXT n 

1630 IF m=0 THEN "LET m=14: GO T 
O 1600 

16490 INK 7: PRINT AT 11,03" ": L 


DAD "" 

2000 FOR n=30 TO 1 STEP -1 

2010 PRINT AT 8,n5"L "¿AT 9,n3" 
"547 10,n3*"L "5AT 11,n5*"L, “¡AT 

EN a A 

2020 NEXT n 

2030 RETURN 
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PARCHIS - B 


10 INK O 

1000 LET t=0: LET w=0: LET e=0: 
LET ya=309: LET yb=309: LET yc=3 
10: LET yd=310: LET ra=109: LET 
rb=109: LET rc=110: LET rd=110 
5000 GO SUB 9000: LET w=1+INT (R 
NDXG6) 

5010 PRINT AT 11,27;3w3" " 

5020 PRINT AT 20,22; INK 1; FLAS 
H 13”SELECCIONE"5AT 21,225" FIC 


HA ' 
5030 IF INKEY$="" THEN GO TO 50 
30 


5040 LET qé6=-INKEYS 

5050 IF q$<>"a” AND gq$<>"b"” AND 
q$<>"c” AND q$<>"d" THEN GO TO 
5030 

5060 PRINT AT 20,22;"” A 
¡AT 21,22;” ” 

5100 IF q$<>”"a” THEN GO TO 5200 
5110 IF ya=308 THEN GO TO 5500 
5120 IF yax308 THEN GO TO 5150 
5130 IF w=5S THEN LET ya=39 

51490 GO TO 5500 

5150 IF ya=39 THEN LET ya=300 
5160 IF ya+tw>308 THEN  LET ya=61 
6- (yatw): GO TO 5500 

5170 LET ya=yatw: IF ya-w<35 AND 
ya>34 THEN LET ya=266+ya 

5180 LET q$="ya": GO SUB 8800 
5190 LET ya=ya-68 

5200 IF g$<>”b” THEN GO TO 5300 
5210 IF yb=308 THEN GO TO 5500 
5220 IF yb<308 THEN GO TO 5250 
5230 IF w=5 THEN LET yb=39 
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5240 GO TO 35500 

5250 IF yb=34 THEN LET yb=300 
5260 IF yb+w>308 THEN  LET yb=61 
6-(yb+w): GO TO 5500 

5270 LET yb=yb+w: IF yb-w<35 AND 
yb>34 THEN LET yb=336-yb 

5280 LET q$="yb": GO SUB 8800 
5290 LET yb=yb-68 

5300 IF q$<>"c” THEN GO TO 5400 

5310 IF yc=308 THEN 60 TO 5500 
5320 IF ycxi308 THEN GO TQ 5350 

5330 IF w=5 THEN LET yc=39 

5340 GO TO 3500 

5350 IF yc=34 THEN LET yc=300 
5360 IF yc+w>308 THEN LET yc=61 

6- (yc+tw): GO TO 35500 

5370 LET yc=yc+tw: IF yc-w<35 AND 
yc>349 THEN LET yc=336-yc 

5380 LET q$="yc": GO SUB 8800. 

5390 LET yc=yc-68 

59400 IF q$<>"d” THEN GO TO 5500 
5410 IF yd=308 THEN GO TO 5500 
5420 IF yd<308 THEN GO TO 5450 

5930 IF w=5 THEN LET yd=39 

5440 GO TO 3500 

5450 IF yd=34 THEN LET yd=300 

5460 IF yd+w>308 THEN LET yd=61 

6-(yd+tw): GO TO 5500 

5470 LET yd=yd+w: IF yd-w<35 AND 
yd>734 THEN LET yd=336-yd 


35480 LET q$="yd": GO SUB 8800 
5490 LET yd=yd-68 


5500 GO SUB 9000: LET e=1+INT (R 
NDXG6) 

5510 PRINT AT 17,27;e 

5600 LET q$="ra": GO SUB 8600 
5610 LET q$="rb": GO SUB 8600 
5620 LET q$="rc": GO SUB 8600 
5630 LET q$="rd": GO SUB 8600 
5640 LET gq$="ra": GO SUB 8700 
5650 LET q$="rb": GO SUB 8700 
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5660 LET q$="rc": GO SUB 8700 

5670 LET gq$="rd": GO SUB 8700 

5680 IF e=5 AND ra=109 THEN LET 
ra=5: GO TO 5000 

5é6?%0 IF e=5 AND rb=109 THEN LET 
rb=5: GO TO 5000 

5700 IF e=5 AND rc=110 THEN LET 
rc=5: GO TO 5000 

5710 IF e=5 AND rd=110 THEN LET 
rd=5: GO TO 35000 

5720 LET gq$="ra": GO SUB 8500 

5730 LET q$="rb": GO SUB 8500 
740 LET g$="rc": GO SUB 8500 

5750 LET gq$="rd": GO SUB 8500 

5760 IF ra<108 AND rat+e>108 THEN 
LET ra=216- (rate): GO TO 5000 

5770 IF rb<108 AND rb+e>108 THEN 
LET rb=216-(rbte): GO TO 5000 

5780 IF rc<108 AND rec+re>108 THEN 
LET rc=216-(rct+te): GO TO 5000 

5790 IF rd<108 AND rd+e>108 THEN 
LET rd=216-(rdt+te): GO TO 5000 

5800 IF rcí<108 THEN LET q%$="rc” 

5810 IF rb<108 THEN LET q%="rb” 

5820 IF rax108 THEN LET gq%$="ra"” 

5900 IF ra>107 AND rb>107 AND rc 

>i107 AND rd>107 THEN GO TO 5000 

£000 IF g$="ra” THEN LET ra=ra+ 

E 

6010 IF g$="rb" THEN LET rb=rb+ 

e 

6020 IF g$="rc"” THEN LET rc=rc+ 

e 

6030 IF g$="rd" THEN LET rd=rd+ 

e 

6040 IF t<>0 THEN LET e=10Xt: L 

ET t=0: GO TO 5510 

6050 IF ra>ó68 AND ra<100 THEN L 

ET ra=ra+32 

6060 IF rb>ó68 AND rb<100 THEN L 

ET rb=rb+32 
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6070 IF rc>é8 AND rc<i00 THEN L 
ET rc=rc+32 

6080 IF rd>68 AND rd<x100 THEN L 
ET rd=rd+32 

6090 GO TO 5000 

6500 IF ya=VAL q$%+e THEN LET ya 
=309: LET t=2 

65310 IF yb=VAL q$+e THEN LET yb 
=309: LET t=2 

6320 IF yc=VAL g$+e THEN LET yc 
=310: LET t=2 

63530 IF yd=VAL g$+e THEN  LET yd 
=310: LET t=2 

6540 GO TO 6000 


8300 LET c=1: LET d=0: RETURN 
39400 LET c=0: LET d=1: RETURN 


8500 IF VAL q%$+e=108 THEN LET t 
=1: GO TO 6000 

8510 RETURN 

8600 IF VAL g$te=ya OR VAL q%+e= 

yb OR VAL gq$+te=yc OR VAL gq%$+e=yd 
THEN IF VAL g$+e<>12 AND VAL q 

$H+te<>17 AND VAL g$+tex<>22 AND VAL 
g$+ex<>29 AND VAL g$+te<>34 AND Y 

AL q$+e<>39 AND VAL q$+e<>46 AND 
VAL q$+ex>51 AND VAL g$+tex>5S%s A 

ND VAL g$+e<>63 AND VAL g$+e<>68 
THEN GO TO 6500 

3610 RETURN 

8700 IF VAL gq$+e=12 OR VAL g$+e= 
17 OR VAL q$+e=22 OR VAL q$+e=29 
OR VAL q$+e=34 OR VAL gq$+te=39 O 

R VAL qg$+te=46 OR VAL g$+e=51 OR 
VAL q$+e=56 OR VAL q$+e=63 THEN 
GO TO 64000 

8710 IF VAL q$+e>67 AND VAL g$t+e 
<108 THEN GO TO 6000 

38720 RETURN 

8800 IF VAL q$=308 THEN LET w=1 

O: GO TO 5010 
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8900 IF VAL g$=S5 OR VAL g$=12 OR 
VAL q$=17 OR VAL q$=22 OR VAL q 
$=29 OR VAL q$=-=34 OR VAL q$-39 O 
R VAL qg$=46 OR VAL g$=51 OR VAL 
aq$=56 OR VAL q$=63 OR VAL q%$=68 
THEN GO TO 5500 
8910 IF VAL g$=ra THEN LET ra=1 
09: GO TO 8400 
8920 IF VAL g$=rb THEN LET rb=1 
09: GO TO 8400 
8930 IF VAL g$=rc THEN LET rc=1 
10: GO TO 8400 
8940 IF VAL g$=rd THEN LET rd=1 
10: GO TO 8400 
8950 IF VAL q$>68 AND VAL q$<99 
THEN RETURN 
8960 GO TO 5500 
9000 PRINT AT 0,8;"POTUPO”;AT 1, 
38;"PQPQPQ" AT 2,8;5”"PQPQPQ”5AT 3, 
3;"PQPQPQ";AT 4,8;3"PQPQTU" ¿AT S, 
8;"POPOQPQ”";AT 6,8; "PQPQPQA”" 5; AT 7, 
8;"PQPQPQA";AT 4,2553" (inversion v 
ideo)DADOS” 
9010 PRINT AT 8,05 " NNNNRNINNL 
MNNNNNNNN — JUGADOR 0000S000 L mM 
00000000”"jAT 10,0;5"R"5AT 10,21; 
"R"3AT 11,05"S"5AT 11,21;3"S”"5AT 
12,0; "NNNNNNNN M  L NNNRNNNN"5AT 
13,03 " ODOOOOOOM LOOOSOOOO0"” 
9020 PRINT AT 10,15 PAPER 5; "NNN 
NNNN  E”"jAT 11,15”0000000 M*j¿AT 
10,115 PAPER 45"M. NNNNNNN"5AT 
11,11;5"L 0000000" 
9030 PRINT AT 14,8;”"PQPQPQ"5;AT 1 
5,8;"POQPOPQ” AT 16,8; "PAPQPQ” ¿AT 
17,8; "TUPOPQ";AT 18,8; "POPQPQ”"; 
AT 19,8;"PQPQPQ";AT 20,8; "PQPQPO 
"¡AT 21,8;"PQTUPQ" ¿AT 14,23;"ORD 
ENADOR" 
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9040 RESTORE : PRINT AT 3,3; PAP 
ER 65" "jAT 4,33" "¡AT 17,175 
PAPER 253" "¡AT 18,173" " 
9070 FOR n=0 TO 17: READ x: POKE 
x,48: READ x: POKE x,16: NEXT n 
9080 DATA 22570,22922,22571,2292 
3,22602,22954,22603,22955,22634, 
22986,22633,22987,22666,23018,22 
667,23019,22698,23050,22699,2305 
1,22730,23082,22731,23083,22762, 
23114,22763,23115,22794,23146,22 
795,23147,22826,23178,22827,2317 
9 
9160 POKE 22664,48: POKE 22665,4 
8: POKE 22801,32: POKE 22833,32: 
POKE 22916,40: POKE 22948,40: P 
OKE 23084,16: POKE 23085,16 
9170 POKE 22793,48: POKE 22796,4 
8: POKE 22824,40: POKE 22920,40: 
POKE 22953,16: POKE 22956,16: P 
OKE 22829,32: POKE 22925,32 
9180 POKE 22792,46: POKE 22825,4 
6: POKE 22858,46: POKE 22891,20: 
POKE 22924,20: POKE 22957,20: P 
OKE 22797,38: POKE 22828,38: POK 
E 22859,38: POKE 22890,21: POKE 
22921,21: POKE 22952,21 
9190 PRINT AT 11,27;w5” "5AT 17, 
27je5" ": PAPER 6: LET q=ya: GO 
SUB 9500: PRINT AT a,b;y"A" 
9200 LET q=yb: GO SUB 9500: IF C 
ODE SCREENS (a,b)>64 THEN PRINT 
AT atc,b+dj"B": GO TO 9220 | 
9210 PRINT AT a,b;j"B" 
9220 LET q=yc: GO SUB 9500: IF C 
ODE SCREENS (a,b)>»64 THEN PRINT 
AT atc,b+dj”C": GO TO 9240 
9230 PRINT AT a,b$*C” 
9240 LET q=yd: GO SUB 9500: 1F C 
ODE SCREENS (a,b)>64 THEN PRINT 
AT a+tc,b+dj"D": GO TO 9260 


153 


9250 PRINT AT a,b5*D” 

9260 PAPER 2: LET q=ra: GO SUB 9 

500: IF CODE SCREENS (a,b)>64 TH 

EN PRINT AT atc,b+dj3”"A”: GO TO 

9280 : 

9270 PRINT AT a,b;"A” 

9280 LET gq=rb: GO SUB 9500: IF C 

ODE SCREENS (a,b)>64 THEN  PRINT 
AT atc,b+d;”"B": GO TO 9300 

9290 PRINT AT a,b;5"B” 

9300 LET q=rc: GO SUB 9500: IF C 
ODE SCREENS (a,b)>64 THEN  PRINT 
AT atc,b+tdj3"C": GO TO 29320 

9310 PRINT AT a,b;5*C” 

9320 LET g=rd: GO SUB 9500: IF C 
ODE SCREENS (a,b)>64 THEN  PRINT 
AT a+tc,b+d;”"D": PAPER 7: RETURN 


9330 PRINT AT a,b;j"D": PAPER 7: 
RETURN 

9500 IF q<9 THEN LET a=22-q: LE 
T b=12: 60 TO 8400 

9510 IF q>8 AND q<17 THEN LET a 
=12: LET b=5+q: GO TO 8300 

9520 IF q>17 AND q<26 THEN LET 
a=8: LET b=39-q: GO TO 8300 

9530 IF q>25 AND q<34 THEN LET 
a=33-q: LET b=12: GO TO 8400 
9540 IF q>34 AND 9<43 THEN LET 
a=q-35: LET b=8: GO TO 8400 

9550 IF q>42 AND q<51 THEN LET 

a=8: LET b=50-q: GO TO 8300 

9560 IF q>51 AND q<é0 THEN LET 

a=12: LET b=g9-52: GO TO 8300 
9570 IF q>59 AND q<é68 THEN LET 
a=q-46: LET b=8: GO TO 8400 

9580 IF q=17 THEN LET a=10: LET 
b=21: GO TO 8300 

9590 IF q=34 THEN LET a=0: LET 
b=10: GO TO 8400 
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9600 IF q=51 THEN LET a=10: LET 
b=0: GO TO 8300 

9610 IF q=68 THEN LET a=21: LET 
b=10: GO TO 8400 

9620 IF q>100 AND q<109 THEN LE 
T a=121-q: LET b=10: GO TO 8400 
9630 IF q>300 AND q<309 THEN LE 
T a=q-300: LET b=10: GO TO 8400 
9640 IF q>108 AND q<111 THEN LE 
T a=g-92: LET b=17: GO TO 8400 
9650 IF q>308 AND q<311 THEN LE 
T a=q-306: LET b=3: GO TO 8400. 
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To 733.0 


GALAXIAS A 


MEMORIA OCUPADA: 4257 bytes 


VARIABLES 


Variable de carga (READ) de los gráficos definibles por el usuario. 
Variable bucle FOR NEXT. 

Variable bucle FOR NEXT. 

Coordenada vertical de la galaxia. 

Coordenada horizontal de la galaxia. 


GRAFICOS 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de colores. 
20 Carga de los gráficos definibles por el usuario. 
100 Gráficos definibles por el usuario. 


3000 Dibujo de presentación. 
3260 Preparación de los colores y carga del siguiente programa. 


COMENTARIO 


Programa previo al principal en el que se ha aprovechado la necesidad, por 
falta de RAM, de cargar los gráficos por separado para hacer una presentación. 

En este caso podemos ver un ejemplo de formación de títulos por trama, 
tanto en negativo (3000/3190) como en positivo (3210/3250). 

Una interesante experiencia es, en esta segunda parte, anular el BEEP de 
la línea 3230 para dejar la ejecución silenciosa, se aprecia como una presenta- 
ción curiosa se vuelve pesada y larga. 


SUGERENCIA 


Pruebe a sustituir el logotipo de trama negativa por un dibujo, en trama ne- 
gativa también. 


GALAXIAS B 


MEMORIA OCUPADA: 7892 bytes 


VARIABLES 


Coordenada vertical de la pantalla. 
Coordenada horizontal de la pantalla. 
Número de naves en juego en ese momento. 
Coordenada vertical de la nave primera. 
Coordenada horizontal de la nave primera. 
Coordenada vertical de la nave segunda. 
Coordenada horizontal de la nave segunda. 


O *0000T090 
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Coordenada de disparo de la nave primera. 
Coordenada de disparo de la nave segunda. 
Indice de disparo, Q no, 1 nave primera y 2 nave segunda. 
Coordenada vertical del misil. 

Coordenada horizontal del misil. 

Indice de estado del escudo protector. 

Conteo del número de naves destruidas. 

Indice de nave tocada. 

Variable de aparición aleatoria de las naves. 
Coordenada vertical de la mononave suicida. 
Coordenada horizontal de la mononave suicida. 
Carácter de la tecla apretada. 


GRAFICOS 


41 A ” 

41 EF ” 
44 A ” 

11 D ” 
44 BC ” 
11 D ,” 
11 EF ” 
11 BC ” 
“A” 
“EF” 

a 

al O 
“BC ” 
“D” 
“ER” 
“BC” 

41 10) . 
E ES | 
“o M ”% GHI ” 
“N” 

E GHE" 


ESTRUCTURA DEL PROGRAMA 


Inicio del programa y selección de los colores. 
Instrucciones de utilización. 

Valoración de variables. 

Valoración de variables. 


Ciclo de juego, selección de movimientos por parte del jugador. 
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4110 Ciclo juego, gestión de la pantalla. 

5000 Ciclo juego, gestión del visor. 

5002 Ciclo de juego, lógica de las naves. 

5200 Ciclo de juego, generación aleatoria de naves y disparos. 
8000 Subrutina de disparos del jugador. 

8500 Subrutina de impacto del misil. 

8600 Subrutina de la música del impacto del misil. 


COMENTARIO 


Sofisticado juego galáctico en el que se ha sacrificado la velocidad por la 
complejidad, pues simultáneamente se dan: movimiento de toda la pantalla 
bajo orden de cuatro teclas (5, 6, 7, 8), movimiento de las naves atacantes, 
movimiento de sus misiles, movimiento de la mononave bajo orden de otras 
cuatro teclas (t, y, u, i) y disparos del jugador (0). 

Como las coordenadas de un dibujo cualquiera se pueden ver afectadas por 
tantos factores ello implica unas órdenes espesas llenas de comprobaciones 
y seguros, todo ello en detrimento de la velocidad de ejecución del programa. 

En realidad la lógica y funcionamiento de este programa lo hacen candidato 
a su ejecución en código máquina y no en Basic. 

Un detalle muy importante es el movimiento de la pantalla. El juego se desa- 
rrolla sobre unas coordenadas de 31 por 41, moviéndose por ellas no sólo ga- 
laxias y naves, sino también la pantalla, de forma que puede estar ocurriendo 
algo en las coordenadas verticales 22 a 31 y horizontales 32 a 41 y no enterar- 
nos por tener, en ese momento, la pantalla en las coordenadas 0, Q. En reali- 
dad no es la pantalla la que se mueve, claro, si no las coordenadas 31 por 41 
las corren de lado a lado o de arriba a bajo actuando la pantalla como de «ven- 
tana» que nos permite ver lo que hay en cada coordenada, dicho efecto de 
movimiento se produce moviendo simultáneamente todo lo que en ella hay 
dibujado, este efecto muy vistoso y que da una gran sensanción de realidad, 
queda muy deslucido, por no decir anulado del todo, por las limitaciones del 
Basic. 

En primer lugar se ha tenido que reducir el número de coordenadas (dibu- 
jos) a controlar, (en vez de estrellas se han tenido que poner galaxias, así se 
reducía en mucho el número de dibujos a controlar) y en segundo lugar, a pe- 
sar de la reducción, la lentitud del Basic sigue haciendo que el movimiento 
del último objeto de la pantalla sea apreciablemente posterior al del primero, 
cuando tendrían que ser simultáneos. 


SUGERENCIA 


Una forma de intentar corregir un poco los inconvenientes antes expuestos, 
sería eliminar las galaxias y en su lugar poner estrellas pero sin control sobre 
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ellas. Dos son las pegas que este sistema introduce; la primera que dichas es- 
trellas se moverían junto la pantalla, en vez de permanecer fijas en su sitio, 
la segunda es que, al no tener control sobre ellas, no tener sus coordenadas, 
cuando el paso de una nave las borrase no podríamos regenerarlas, aunque 
eso sí, cada cuatro o cinco ciclos de juego podremos producir unas pocas es- 
trellas aleatoriamente con la esperanza de que así no se vayan formando hue- 
cos importantes. 
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GALAXIAS - A 


1 GO TO 20 
10 BORDER O: PAPER O: INK S: R 


UN 
20 FOR n=0 TO 119 
30 READ q 
40 POKE USR “"a"+n,q 
SO NEXT n 


100 DATA BIN 00100000,BIN 01001 
110,BIN 10011011,BIN 10011001,B1 
N 10011001,BIN 11011001,BIN O111 
0010,BIN 00000100 

110 DATA BIN 00010001,BIN 00100 
110,BIN O1001000,BIN 0O1001011,BI 
N O1000111,BIN 00100000,BIN 0001 
1000,BIN 00000111 

120 DATA BIN 11100000,BIN 00011 
000,BIN 00000100,BIN 11100010,BI 
N 11010010,BIN O0010010,BIN O110 
0100,BIN 10001000 

130 DATA O,BIN 00011000,BIN O11 
11110,255,255,BIN O1111110,BIN O 
0011000,0 

140 DATA O,O,BIN 00000011,BIN O 
1111111,255,BIN O1111111,BIN 000 
00011,0 

150 DATA O,O,BIN 11000000,BIN 1 
1111110,255,BIN 11111110,BIN 110 
00000,0 

160 DATA 255,255,BIN 11111100,B 
IN 00001100,BIN O0O011111,BIN 000 
O1111,BIN O0011111,BIN 00000001 

170 DATA O,O,BIN 00000001,0,BIN 

11110000,255,255,BIN 11110000 

180 DATA 0,0,255,255,BIN O11111 
00,BIN 11111000,BIN 11000000,0 
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190 DATA O,O,BIN 11110000,BIN 1 
1100001,BIN OO111111,BIN OO11110 
0,0,0 

200 DATA 0,0,O,BIN 11000000,BIN 

10000000,0,0,0 

210 DATA BIN 11100111,BIN 11100 
111,BIN OO111100,BIN O1100110,25 
5,255,BIN O0111100,BIN 00011000 
220 DATA O,O,BIN O1101100,BIN O 
O111000,BIN O1111100,BIN 0001000 
0,0,0 

230 DATA O,O,BIN O0101000,BIN O 
O111000,BIN OO0111000,BIN 0011100 
O,BIN 00010000,0 

240 DATA BIN 00010000,BIN 00010 
000,BIN 10111010,BIN 11111110,BI 
N 10010010,BIN 11101110,BIN 1010 
1010,BIN 10000010 
3000 FOR n=0 TO 15: FOR m=0 TO 3 
1 
3010 LET a=n: LET b=m 
3020 IF a<4 OR a>10 THEN BEEP 1 
/50,40: GO TO 3170 
3030 IF a>3 AND a<11 AND b=4 THE 
N GO TO 3180 
3040 IF a>5 AND a<11 AND b=10 TH 
EN GO TO 3180 
3050 IF a>5 AND a<11 AND b=14 TH 
EN 60 TO 3180 
3060 IF a>»S5 AND a<1i1 AND b=16 TH 


EN GO TO 3180 
3070 IF a>5 AND a<11 AND b=22 TH 


EN GO TO 3180 
3080 IF a=4 AND b>4 AND b<9 THEN 
GO TO 3180 
3090 IF a=10 AND b>4 AND b<9 THE 
N GO TO 3180 
3100 IF a=6 AND b>16 AND b<21 TH 
EN GO TO 3180 
3110 IF a=8 AND b>16 AND b<20 TH 
EN GO TO 3180 
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3120 IF a=8 AND b>22 AND b<26 TH 

EN GO TO 3180 

3130 IF a=10 AND b>22 AND b<27 T 

HEN GO TO 3180 

3140 IF a=ó AND b>22 AND b<27 TH 

EN GO TO 3180 

3150 IF a=7 AND b=11 OR a=3 AND 

b=12 OR a=9 AND b=13 THEN GO TO 
3180 

3160 IF a=7 AND b>4 AND b<8 THEN 
GO TO 3180 . 

3170 PRINT AT a,b;”"A" 

31380 NEXT m 

3190 NEXT n 

3200 BEEP 1/2,-20: PRINT AT 12,1 

15 INK 2;"SOFTWARE" 

3210 FOR n=1 TO 78 

3220 READ a,b 

3230 BEEP 1/20,-20+n: PRINT AT a 

¿bj INK 63”*"A” 

3240 NEXT n 

3250:DATA. 17,3,17/2,17,1:18,1,19 

20d 2 LIA 203,215 

,20,5,19,5,18,5,17,5,17,6,17,7,1 

8,7,19,7,20.7,21,7,20,6+17,9,18, 

9,179,203 21.9,21,10,21,11,21, 

13.20,13,19,13,186,13,12,13,12,14 

,17,15,18,15,19,15,20,15,21,15,2 

0,14:21,17,/20,17,19,18,18,19,17, 

19,17,17,18,17,20,19,21,19,21,21 

,20,21,19,21,18,21,17,21,1?,23/1 

8,23.19,23,20,23,21,23,20,294,17, 

24,17,25,18,25,19,25,20,25,21,25 

,21,27,21,28,21,29,20,29,19,29,1 

9,28,19,27,18,27,17,27,17,28,17, 

29 

3260 INK O: PRINT : PRINT : PRIN 

T : LOAD ”*” 
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GALAXIAS - B 


1 GO TO 20 

10 BORDER O: PAPER O: INK 35: R 
UN 

20 PRINT AT 0,05 INK 45"Desde 
un satelite de vigilanciadebe d 
estruir todas las  navesenemig 
as que vea, para ello debeencuad 
rarlas en la cruz centraldel vi 
sor (mediante las teclas 36 7 y 
8) y disparar (tecla 0).” 

30 PRINT AT 6,03 INK 7;5”"Dichas 

naves intentaran destruirel esc 
udo protector del planetaque pr 
otege y despues, el propioplanet 
a, mediante sus misiles.” 
40 PRINT AT 10,035 INK 6;"Cuand 
ouna nave ha lanzado  sumisil 

la unica forma de evitarque a 
lcance su objetivo esj biendestr 
uyendo la nave, bien usandola mo 
nonave suicida, de la cualsolo 
se dispone de 4 unidades encada 
ataque enemigo." 

50 PRINT AT 17,035 INK 75"*La mo 
nonave se controla mediantelas t 
eclas tyujisde la mismatforma 

que las 5 6 7 y 8.” 

60 PRINT AT 20,05 INK 4;5"Lea 1 
as instrucciones despacio ,despu 
es pulse una tecla.” 

70 IF INKEYS="" THEN BEEP 1/1 
O, INT (RNDXS): GO TO 70 

80 CLS : BORDER 3 
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90-LET 


LET s=20: 


1=2:; LE 
100 LET 
LET j=0: 
=5 
3100 LET 
3110 IF 
3120 IF 
b=b-1: 
3130 IF 
aza+rl: 
3140 IF 
a=a-1: 
3130 IF 
b=b+1: 


d=O0: LET 
LET q=0 
T p=0: LET 
t=0: LET 
LET c=0; 


cS=INKEYS 
cí="0” 
c$="35" AND 
GO TO 4000 
cg$="6" AND 
GO TO 4200 
có="7" AND 
GO TO 4200 
có$="8" AND 
GO TO 4000 


LET 


$f=0: 
m=3: 
ezo: 


ac9 THEN 


a>»O THEN 


b<9 THEN 


LET r=29: 
LET k=2: 
LET o0=0 
LET g=0: 
LET b 


LET 


THEN GO TO 8000 
b>O THEN 


LET 


LET 


LET 


LET 


3160 IF 
3170 IF 
3180 IF 
3190 IF 
4110 IF 
1-b3" A 
4113 IF 
13” ” 
4120 IF a<3 AND b<9 THEN PRINT 
AT 2-a,8-bj”" EF ” 

9123 IF b=9 AND a<3 THEN  PRINT 
AT 2-a,lj”"  ” 


có="t" THEN 
cá="y"” THEN 
c$="u” THEN LET r=r-1 
c$="i"” THEN LET s=5+1 
b<2 THEN PRINT AT 20-a, 


LET 
LET 


s=s-1 
r=r+1 


b=2 THEN PRINT AT 20-a, 


4130 PRINT AT 13-a,12-b;" A ” 
4140 IF a>»4 THEN PRINT AT 25-a, 
18-b;" D ” 

4130 IF a<? THEN PRINT AT 8-a,2 
4-b;j"” BC ” | 

4160 IF ax? THEN PRINT AT ó-a,2 
9-bj" D” 

4170 IF b>2 THEN PRINT AT 16-a, 
31-b3" EF * 

4175 IF b=2 THEN PRINT AT 1é-a, 
293" m 
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4180 IF a<x5S AND b>7 THEN  PRINT 
AT 4-a,36-b3” BC ” 

4185 IF b=7 AND a<S THEN PRINT 
AT 4-a,29;3"  ” 

4190 GO TO 35000 

4210 IF b<2 THEN PRINT AT 20-a, 
2-b;5"A"jAT 19-a,2-b3” "¡AT Z1-a, 
2-b3" ” 

4220 IF a<3 AND b<9 THEN PRINT 
AT 2-a,9-bj"EF"j3AT 1-a,9-b53" *5 
AT 3-a,9-b;3" ” 

4225 IF a=3 AND b<9 THEN PRINT 
AT 0,9-b;3" ” 

4230 PRINT AT 13-a,13-b;3"A";AT 1 
2-aj,13-b3” "¡AT 14-a,13-b3” * 
4240 IF a>9 THEN PRINT AT 25-a, 
19-b;3"D";AT 24-a,19-b;" "5AT 26- 
aj 19-b3” ” 

4245 IF a=94 THEN PRINT AT 20,19 
-b3” » 

4250 IF ac9 THEN PRINT AT 8-a,2 
S-b;"BC "¿AT 7-a,25-b;3”" "¿AT 9- 
aj25-b;3”" ” 

9255 IF a=9 THEN PRINT AT 0,25- 
bi" >” 

4260 IF ax? THEN PRINT AT 6- 
O-bj"D"5AT 5-a,30-b;5” "¡AT 72 
O-b;3” ” 

4265 IF a=7 THEN PRINT AT 0,30- 
b;” n 

4270 IF b>2 THEN PRINT AT 1ló-a, 
32-b;j"EF";AT 15-a,32-b3” "j3AT 1 
7-2,32-b” ” : 

4280 IF a<x5S AND b>7 THEN PRINT 
AT 4-a,37-b;j"BC"5AT 3-a,37-b3" 
"sAT S-a,37-b3"  ”* 

4235 IF a=5 AND b>7 THEN  PRINT 
AT 0,37-b;"” 7 

5000 PRINT AT 9,149; INK 6;"g9c2";5 
AT 9,17;3"gc1";AT 12,14;3"97"5AT 1 
2117;3"9c4” 
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5002 IF t<49 AND r-a>O AND r-a<Z21 
AND s-b>0 AND s-b<31 THEN PRIN 
T AT r-a,s-b5 INK 43" O "jAT r-a 
-1,s-bj3" "5jAT r-ati,s-b3"  ": 1 
F r=k AND s=1 THEN PRINT AT r-a 
,¿5s-b53"” ": BEEP 1/2,-10: LET j=0: 
LET t=t+1: LET 1=0 
50094 IF t=9 AND r-a<22 THEN PRI 
NT AT r-a,s-b3”"  ” 
5006 IF r-a=21 AND s-b>0 AND s-b 
<30 THEN PRINT AT 20,s5-b3"  ” 
5008 IF r-a<x21:AND 31<s-b THEN 
PRINT AT r-a,30;3"  ” 
5015 IF r-ac21 AND s-b<O THEN P 
RINT AT r-a,li;5"  ” 
5020 IF j=0 THEN GO TO 5120 
5030 IF j=1 AND e-b<28 THEN PRI 
NT AT d-aj,e-b3 INK 23” L  ";jAT 
d-a-1,e-b+1;” "¡AT d-at+tl,e-b+1 
5" ": IF C=3 AND SGN (9-b)>=0 
AND 3-b<29 THEN PRINT AT +-a,3g- 
bj INK 23"  —JK "jAT f-a-1,9-b+1; 
E "5AT +£-a+t1,9-b+13” kl 
5040 IF 9g-b=29 THEN PRINT AT 4£- 
ajsg-b;"” e 
5050 IF j=2 AND g-b<29 THEN PRI 
NT AT £f-a,9-b3 INK 23" Mi"j3AT +4 
-a-1,9-b+1;5” "¿AT f-at+t1,9-b+13” 
": IF C=3 AND SGN (e-b)>=0 AND 
e-b<x<28 THEN PRINT AT d-a,e-b; 
INK 23"  GHI ";AT d-a-1,e-b+1;” 


"5AT d-a+1,e-b+1;" h 
5060 IF e-b=28 THEN PRINT AT d- 
aje-b3" : 


5070 IF 1-b<30 AND k-a<22 THEN 
PRINT AT k-a,1-b+1;3"N"5AT k-a-1, 
1-b3" "AT k-a-2,1-b3" » 
5080 IF k-a=22 AND 1-b<30 THEN 
PRINT AT 21,1-b+1;5" * 

5090 IF 1-b=30 THEN PRINT AT k- 
a-1,1-b-13" " 
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5100 BEEP 1/75,k: LET k=k+1: IF 

k>30 THEN GO TO 8500 

5110 GO TO 3000 

5120 IF SGN (e-b)>=0 THEN IF c= 

1 OR c=3 THEN PRINT AT d-a,e-b; 
INK 253" GHI"5¿AT d-a-1,e-b+1;3” 
"*5AT d-a+tl1,e-b+1;” ": LET e= 

eti: IF h=e THEN LET k=d+2: LET 
l=e+1: LET j=1 

5125 IF SGN (e-b)<0 THEN LET e= 

e+r1i 

5130 IF e>b+26 THEN PRINT AT d- 

a,e-b+1;3” ”: LET c=c-1: LET e= 

b 

5140 IF SGN (9-b)>=0 AND c>1 THE 

N PRINT AT +4f-a,9-b35 INK 25”  —JK 
"5AT £f-a-1,9-b+1;3" "¿AT f-at+1,39 

-b+153"  *": LET g=9+1: IF i=9 THE 

N LET k=4+2: LET l1=9+1: LET j=2 

5145 IF SGN (g9-b)<0 THEN LET g= 

g+1 

5150 IF 3g>b+27 THEN PRINT AT +- 

a,9-b+1;” ”: LET c=c-2: LET g=b 

5200 IF c=0 THEN LET q=1: LET c 

=INT (RNDX3): LET d=10+INT (RNDX 
11): LET e=b: LET h=15+INT (RNDX* 

40): IF c=2 THEN LET i=h: LET £ 

=d: LET g=e 

5210 IF q=1 THEN LET q=0: GO TO 
3000 

5220 IF c=1 THEN LET c=c+INT (R 

NDX2): IF c=2 THEN LET c=3: LET 
i=15+INT (RNDX40): LET f=10+INT 
(RNDX11): LET g=b: IF f>d-2 AND 
$f<d+2 THEN LET c=1: GO TO 3000 

35230 IF c=2 THEN LET c=c+INT (R 

NDX2): IF c=3 THEN LET h=13+INT 
(RNDX40): LET d=10+INT (RNDX11) 
: LET e=b: IF d>+$-2 AND d<f+2 OR 
9-b<5 THEN LET c=2 

5240 GO TO 3000 
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8000 BEEP 1/5,35: IF c=1 OR c=3 
THEN IF d-a>9 AND d-aci2 AND e- 
b>10 AND e-bx<1ó6 THEN LET p=1: L 
ET o=0+1: PRINT AT d-a,e-b+1;3” 
”": BEEP 1/3,50: IF j=1 THEN P 
RINT AT k-a-1,1-b+153" ”": LET j=0 
8003 IF p=1 THEN GO TO 8030 
8010 IF c>1 AND f-a>9 AND +f-ac12 
AND 3-b>11 AND g-b<1ó6 THEN  LET 
p=1: LET o=o0+1: PRINT AT f-a,9- 
b+13" ": BEEP 1/3,50: IF j=2 T 
HEN PRINT AT k-a-1,1-b+13”" "< L 
ET j=0 
8015 IF p=1 THEN GO TO 8040 
8020 GO TO 5000 
8030 IF c=3 THEN LET c=2: LET p 
=0: GO TO 535000 
8040 IF c=3 THEN LET c=1: LET p 
=0: GO TO 5000 
8050 LET p=0: LET c=0 
8060 GO TO 3000 
83500 GO SUB 8600 
8510 LET m=m-1 
83520 IF m=2 THEN PRINT AT 19,0; 
PAPER 75 INK 13"9c8c8c8c8c8c8c8 
c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c08 
c8c8c8g8c8c8c8c8c8c8 ESCUD 
O TOCADO c8c8c8c8c8c8c8c 
8c8c8c8c8c8c8c38c8c8c8c8c8c8c8c8c 
8c8c8c8c8c8c8c8c8c8”: GO SUB 860 
O: CLS : GO TO 100 2 
83530 IF m=1 THEN PRINT AT 19,05 
INK 13 PAPER 7;5"”"9c8c8c8c8c8c8c8 
c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8 
c8c8c8c8c8c8c8c8c8c8 ESCUD 
O DESTRUIDO c8c8c8c8c8c808 
c8c8c8c8c8c8c8ac8c8ac8ac8ec8acaceacecse 
c8c8c8c8c8c8c8c8c8c8”: GO SUB 36 
00: CLS : GO TO 100 
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8550 IF m=0 THEN PRINT AT 18,05 
INK 1; PAPER 73"*"9c8c8c8c8c8c8c8 
c8cg8c8c8c8c8c8c8c8c8c8c8c8c8c8c8 


c8c8c8c8c8c8c8c8c8c8 SU MISIO 
N HA FRACASADO c8cs HA DEST 
RUIDO NAVES c8c8c8c8c8c8c8 


c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8 
c8c8cagc8cg8c8c8c8c8c8”";AT 20,19;0 


8560 PAUSE 1: PAUSE O: GO TO 10 

8600 FOR n=1 TO 5: BEEP 1/10,1: 

BEEP 1/10,-10: BEEP 1/10,-35: NEX 
Ton 

8610 RETURN 
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3000 


288 


882888 


HELICOPTERO A 


MEMORIA OCUPADA: 4182 bytes 
VARIABLES 


Coordenada vehículo izquierdo. 

Coordenada vehículo derecho. 

Variable de carga (READ) de los gráficos definibles por el usuario. 
Variable de bucle FOR NEXT. 


GRAFICOS 
== 
“PPPp” 
1p» Sl dd 
dd «d ups 
“p» “ps 
“ps “up” 

“p» 1“p» 
“ps! “ps! 
pp “ps! 
“ KNO ” “ KLM ” 
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ESTRUCTURA DEL PROGRAMA 


10 Inicio del programa y selección de los colores. 

100 Carga de los gráficos definibles por el usuario. 

500 Presentación. 

830 Preparación de los colores y carga del programa siguiente. 


COMENTARIO 


Programa previo al principal, en el que cargamos los gráficos definibles por 
el usuario que, por falta de memoria, no podemos cargar en el principal. De 
paso se hace una presentación que estará en pantalla mientras se cargue el 
siguiente programa. 

Nótese que la carga de los gráficos se hace lo primero permitiendo su utili- 
zación en este mismo programa. 

Conviene destacar la existencia, en los gráficos, de cuatro helicópteros que 
en la ejecución del programa serán uno mismo; mirando a la izquierda y con 
las aspas paralelas a la pantalla, en la misma dirección y con las aspas perpen- 
diculares y en la dirección contraria y con las aspas en ambas posiciones. 


SUGERENCIA 


Pruebe a poner su nombre en lugar del logotipo. 


HELICOPTERO B 


MEMORIA OCUPADA: 5152 bytes 


VARIABLES 

q Número de helicópteros que le quedan al jugador. 
w Puntuación. 

E Máxima puntuación. 

r Coordenada vertical helicóptero. 

t Coordenada horizontal helicóptero. 
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Q6469—9”E< 


O TO 


5 


Coordenada horizontal tanque. 

Coordenada horizontal camión. 

Coordenada horizontal coche. 

Control helice, Y perpendicular a la pantalla, 1 paralela. 

Sentido helicóptero, Q derecha, 1 izquierda. 

Vehículo a mover en este ciclo de juego, Q tanque, 1 camión, 2 coche. 
Vehículo que disparará en este ciclo de juego, 0 tanque, 1 camión, 2 
coche. 

Coordenada horizontal de los disparos de los vehículos. 

Coordenada vertical de los disparos de los vehículos. 

Coordenada horizontal de los disparos del helicóptero. 

Coordenada vertical de los disparos del helicóptero. 

Indice de dibujo de explosión pendiente de borrado. 

Carácter de la tecla apretada. 


GRAFICOS 


“a0000000000000000000" “PPPPPPPPPPPPPPPPPPPP” 
“SSSSSSS” 
“KLM” 
“FG” 
AS 

e a 
“ABC ” 
“ABC” 
“KLM” 
“ABC” 
“ KLM” 
“KLM” 
“ABC” 
“KLM” 
“DEC” 
“DEC” 
“KNO” 
“DEC” 
“KNO” 
“ KNO” 
“DEC” 
“KNO” 
14 FG” 
“FG ” 
41 y” 
“y ” 

41 H” 
“H ” 
up» 
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4030 “P” 


4040 “PP” 
4050 “PP” 
4060 “Pp” 
7000 “PPP” 


ESTRUCTURA DEL PROGRAMA 


10 Instrucciones de juego. 

90 Selección de los colores. 

100 Valoración de las variables para la primera partida. 
900 Valoración de las variables. 


1000 Representación gráfica del escenario de juego. 

1500 Distribución y representación gráfica de los vehículos. 

2000 Ciclo de juego, movimiento del jugador. 

3000 Ciclo de juego, movimiento de vehículos. 

3200 Ciclo de juego, disparo de los vehículos. 

3250 Final del ciclo de juego. 

4000 Subrutina de disparo del helicóptero. 

5000 Subrutina de representación gráfica de la puntuación. 

6000 Subrutina de representación gráfica de la máxima puntuación. 
7000 Subrutina de helicóptero tocado por disparo de vehículo. 


COMENTARIO 


El jugador controla un helicóptero con el que ha de destruir una fábrica y 
los vehículos que, a su vez, le disparan. 

Es un factor a destacar el efecto de movimiento de la hélice, para conseguir 
el cual se ha tenido que duplicar casi toda la primera parte del ciclo de juego; 
de 2110 a 219 dibujos del helicóptero en su nueva posición con la hélice para- 
lela a la pantalla, de 2210 a 2290 dibujo del helicóptero en su nueva posición 
con la hélice perpendicular. Ambas zonas de esta primera parte del ciclo de 
juego se van alternando a cada ciclo de juego para dar sensación de movi- 
miento, para ello se usa la variable p. 

Así como en otros juegos, si el jugador no pulsa ninguna tecla, la parte del 
ciclo de juego correspondiente a su movimiento no trabaja, en éste no es así, 
dado que el movimiento de la hélice no ha de parar nunca, cuando el jugador 
no pulsa ninguna tecla la primera parte del ciclo de juego trabaja igualmente 
para redibujar el helicóptero con la hélice cambiada. 

Como indican las variables s y d, en cada ciclo de juego sólo se mueve un 
vehículo y, también, sólo dispara un vehículo, ello permite al helicóptero mo- 
verse más deprisa y con menos peligro, la selección del vehículo que se mue- 
ve y la del que dispara son aleatorias. 
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Por las líneas 4070 y 4080 se puede apreciar que la comprobación de los dis- 
paros del helicóptero sobre la fábrica se hace por atributos, existiendo una com- 
probación que no permite destruir la línea inferior mientras no se haya destrui- 
do la superior. 

No está de más recordar que las bombas del helicóptero explotan a una al- 
tura fija por debajo de éste, por lo que hay que ir controlando su altura para 
hacer blanco. Los disparos de los vehículos, por el contrario, tienen una altura 
pseudoaleatoria, haciendo impacto en un margen cercano al helicóptero. 


SUGERENCIA 


Dado que la sentencia BEEP para el programa mientras ella está en ejecu- 
ción, interesa en la medida de lo posible reducirla en duración o eliminarla. 
Sería bastante conveniente un repaso y reajuste de sentencias BEEP y de sus 
respectivas duraciones, seguro que podríamos hacer el juego apreciablemen- 
te más rápido. 
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HELICOPTERO - A 


1 GO TO 20 
10 BORDER O: PAPER O: RUN 

100 FOR n=0 TO 151 

110 READ c: POKE USR "a"+n,c 

120 NEXT n 

130 DATA BIN O1111111,O,BIN 000 
00111,BIN 00001000,BIN 00001010, 
BIN 00001111,BIN O0001111,BIN 00. 
000111 

140 DATA 255,BIN 10000000,BIN 1 
1110000,BIN OO111111,BIN OO11111 
1,255,255,BIN 11110000 

150 DATA O,BIN 00000011,BIN 000 
00011,255,255,BIN 11110000,0,0 

160 DATA BIN 00000001,0,BIN 000 
00111,BIN 00001000,BIN 00001010, 
BIN 00001111,BIN O0001111,BIN 00 
000111 

170 DATA BIN 11000000,BIN 10000 
000,BIN 11110000,BIN OO0O111111,B1 
N O00111111,255,255,BIN 11110000 

180 DATA BIN 00000001,BIN 00001 
111,BIN O0001111,BIN 00000111,BI 
N O1111111,255,255,BIN O1111111 

190 DATA BIN 00001000,BIN 11010 
000,BIN 11100000,BIN 11000000,BI 
N 11111100,BIN 11111110,BIN 1111 
1110,BIN 11111100 

200 DATA O,O,BIN 00000001,BIN O 
0100110,BIN 00100010,255,255,BIN 
01100110 

210 DATA O,BIN O1111100,BIN 010 
00100,BIN 11111100,255,255,BIN O 
1111111,BIN 00110000 
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220 DATA BIN 00000100,BIN 00001 
000,BIN 11110000,BIN 11100000,BI 
N 11111100,BIN 11111100,BIN 1111 
1100,BIN O1110000 

230 DATA O,BIN 11000000,BIN 110 
00000,255,255,BIN O00001111,0,0 

240 DATA 255,BIN 00000001,BIN O 
0001111,BIN 11111100,BIN 1111110 
0,255,255,BIN 00001111 

250 DATA BIN 11111110,O,BIN 111 
00000,BIN 00010000,BIN 01010000, 
BIN 11110000,BIN 11110000,BIN 11 
100000 

260 DATA BIN 00000011,BIN 00000 
001,BIN 00001111,BIN 11111100,BI 
N 11111100,255,255,BIN 00001111 

270 DATA BIN 10000000,0,BIN 111 
00000,BIN 00010000,BIN 01010000, 
BIN 11110000,BIN 11110000,BIN 11 
100000 

280 DATA BIN 00011000,BIN O1111 
110,BIN O1111110,255,255,BIN O11 
11110,BIN O1111110,BIN 00011000 

290 DATA BIN 00011000,BIN 00011 
000,BIN O00011000,BIN 00011000,BI 
N 00011000,BIN 00011000,BIN 0001 
1000,BIN 00011000 

300 DATA BIN 10101010,BIN O1010 
101,BIM 10101010,BIN O1010101,BI 
N 10101010,BIN O1010101,BIN 1010 
1010,BIN O1010101 

310 DATA BIN 10000000,BIN 11000 
000,BIN 11100000,BIN 11110000,BI 
N 11111000,BIN 11111100,BIN 1111 
1110,253 

500 LET a=0: LET b=29 

510 INK 4 

520 FOR n=1 TO 14 

530 PAUSE 5: PRINT AT 10,a;5” FG 
*5AT 10,b3"1J] *: LET a=at+t1i: LET 
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540 NEXT n 

550 INK 2 

560 PRINT AT 10,14;”"PPPP": FOR 
n=1 TO 10: BEEP 1/20,-5: BEEP 1/ 
20,1: NEXT n . 

570 PRINT AT 11,145"P"5AT 9,14; 
”p» 

580 PAUSE 5: PRINT AT 12,14;"P" 
¡AT 8,14;"P" 

590 PAUSE 5: PRINT AT 13,14;"*"P” 
¡AT 7,149;3"P” 

600 PAUSE 5: PRINT AT 14,14;”"P"” 
¡AT 6,14;"P” 

610 PAUSE 5: PRINT AT 14,15;”"P” 
¡AT 6,15;”"P” 

620 PAUSE 3: PRINT AT 14,16;"P” 
¿AT 6,16;”"P” 

630 PAUSE 5: PRINT AT 14,17;"P" 
¡AT 6,17;"P” | 

640 PAUSE 20: INK 6 

650 PLOT 158,56: DRAW 0,24: DRA 
W 16,-24: DRAW 0,24: BEEP 1/10,4 
O 

660 PLOT 184,56: DRAW 0,24: DRA 
.W 16,0: PLOT 185,68: DRAW 8,0: B 
EEP 1/10,30 

670 PLOT 223,56: DRAW -16,0: DR 
AW 0,24: DRAW 16,0: PLOT 209,68: 

DRAW 8,0: BEEP 1/10,20 

680 PAUSE 20: PRINT AT 16,17; 1 
NK 25 "SOFTWARE": INK 5: FOR n=20 

TO 40 STEP 5: BEEP 1/10,n: NEXT 

n 

690 FOR n=0 TO 28 

700 BEEP 1/100,-5: PRINT AT 3,n 
3 INK 65" KNO": BEEP 1/100,5: PR 
INT AT 3,n3" KLM” 

710 IF n=9 THEN PRINT AT 3,9;" 
1 

720 IF n=10 THEN PRINT AT 3,10 
"E" 


180 


730 IF n=11 THEN PRINT AT 3,11 
740 IF n=12 THEN PRINT AT 3,12 
750 IF n=13 THEN PRINT AT 3,13 
760 IF n=14 THEN PRINT AT 3,14 
770 IF n=15 THEN PRINT AT 3,15 
780 IF n=16 THEN PRINT AT 3,16 
790 IF n=17 THEN PRINT AT 3,17 


800 IF n=18 THEN PRINT AT 3,18 


810 IF n=19 THEN PRINT AT 3,19 


820 NEXT n 
830 INK O: PAPER O: LOAD *” 


HELICOPTERO - B 


1 GO TO 100 

10 CLS : PRINT AT 5,05 INK 5;” 
Puede controlar el helicoptero 
con las teclas 5,6,7 y 8 en las 
direcciones que marcan las +fle- 
chas. Para disparar apriete el O 
s pero ha de tener en cuenta que 
sus bombas explotan a una altu- 
ra fija por debajo del helicop- 
tero, por lo que al disparar se 
ha de apuntar tambien en altura. 

20 PRINT AT 15,05 INK 63"Su mi 
sion es destruir la fabricay tan 
tos vehiculos como pueda.” 
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30 PRINT AT 18,03 INK 7;”"Pulse 
ura tecla.” 
40 PAUSE O 
90 PAPER 5: RUN 
100 LET j=15: LET h=0: LET e=0 
900 LET w=0: LET q=3 
í900 LET k=0: PRINT AT 20,03 INK 
65 PAPER 0O;5”"PUNTOS 000 MAXIMA P 
UNTUACION 000 HEL ICOPTER 
os A 
1010 GO SUB 3000: GO SUB 6000: P 
RINT AT 21,22; INK 6; PAPER O;g 
1020 PRINT AT 19,05 PAPER 0;” 


1030 PRINT AT 15,05 PAPER 3;5" 


1040 PRINT AT 19,03 INK 2; PAPER 
5; "AAAAAAAAAAAALAADANAD| "AT 13, 

05 INK 4;"PPPPPPPPPPPPPPPPPPP” 
1050 PRINT AT 14,24; INK 2; PAPE 

R 4;3"9c8c8c8c8c8c8c8”";jAT 13,239; 

PAPER 35; INK 13”"SSSSSSS” 

1500 INK O: LET g=10: LET +$=10: 

LET p=1: LET a=0: LET r=1: LET t 

=i1: PRINT AT 1,15 PAPER 5;"KLM” 
1600 PAPER 4: LET y=INT (RNDX31) 
: PRINT AT 15,y3”"FG” 

1610 LET u=INT (RNDX31): PRINT A 

FT: 16 UI *IJ>” 

1620 LET i=INT (RNDX21): PRINT A 

T 17,13"H” 
1630 PAUSE 1: PAUSE O 

2000 INK O: PAPER 5 

2100 LET O$S=INKEYS: IF p=1 THEN 
LET p=0: GO TO 2200 

2110 LET p=1: IF o$="S5" AND t>1 

THEN PRINT AT r,t-1;3"ABC ”": LET 
t=t-1: LET a=1: GO TO 3000 
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2120 IF o$="6" AND r<12 AND a=1 
THEN PRINT AT r+1,t;"ABC";5AT r, 
de ": LET r=r+1: GO TO 3000 
2130 IF o$="6" AND r<12 AND a=0 
THEN  PRINT AT r+1,t;3"KLM";AT r, 
qa ": LET r=r+1: SO TO 3000 
2140 IF o0$="7" AND r>1 AND a=1 T 
HEN  PRINT AT r-1,t;"ABC"5AT r,t 

j" "2: LET r=r-1: GO TO 3000 
2150 IF o$="7" AND r>1 AND a=0 T 
HEN  PRINT AT r-1,t3"KLM";AT r,t 
ye ": LET r=r-1: GO TO 3000 
2160 IF o$="8” AND t<28 THEN PR 
INT AT r,t;" KLM": LET t=t+1: LE 
T a=0: GO TO 3000 

2170 IF a=1 THEN PRINT AT r,t;" 
ABC” 

2180 IF a=0 THEN PRINT AT r,t;” 
KLM" 

2190 IF o$="0" THEN GO SUB 4000 
2195 GO TO 3000 

2210 IF o$="5” AND t>1 THEN PRI 
NT AT r,t-15"DEC ": LET t=t-1: L 
ET a=1: GO TO 3000 

2220 IF o$="6” AND r<12 AND a=1 
THEN PRINT AT r+1,t5"DEC";5AT r, 
t3" ": LET r=r+1: 60 TO 3000 
2230 IF o$="6" AND r<12 AND a=0 
THEN PRINT AT r+1,t;5"kNO"5AT r, 
Ep? ": LET r=r+1: GO TO 3000 
2240 IF 0$="7" AND r>1 AND a=1 T 
HEN  PRINT AT r-1,t5"DEC*"5AT r,t 
pa ": LET r=r-1: GO TO 3000 
2250 IF o$="7" AND r>1 AND a=0 T 
HEN  PRINT AT r-1,t;"kNO"5AT r,t 
jr ": LET r=r-1: GO TO 3000 
2260 IF o$="8” AND t<28 THEN PR 
INT AT r,t;" KNO": LET t=t+1: LE 
T a=0: 60 TO 3000 

2270 IF a=1 THEN PRINT AT r,t;" 
DEC" 
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2280 IF a=0 THEN PRINT AT r,t3" 

KNO" 

2290 IF o$="0" THEN GO TO 4000 

3000 LET d=INT (RNDX3): LET s=IN 

T (RNDX3) 

3100 INK O: PAPER 4: IF k=1 THEN 
PRINT AT j,hj" ": LET k=0 

3110 IF s=0 AND t>y THEN PRINT 

AT 15,y3"” FG": LET y=y+1: GO TO 
3200 

3120 IF s=0 AND t<y THEN PRINT 

AT 15,y-13"FG ": LET y=y-1: GO T 

O 3200 

3130 IF s=1 AND t>»u THEN PRINT 

AT 16,uj” 13": LET u=u+1: GO TO: 

3200 

3140 IF s=1 AND t<u THEN PRINT 

AT 16,u-13”"1J ": LET usu-1: GO T 

O 3200 

3150 IF s=2 AND t>i THEN PRINT 

AT 17,13" H": LET i=i+1: GO TO 3 

200 

3160 IF s=2 AND t<i THEN PRINT 

AT 17,i-13"H ": LET i=i-1 

3200 PAPER 5: PRINT AT 9,f3" ”: 

LET g=r+INT (RNDX5): IF r>7 THEN 
LET g=r-INT (RNDX5) 

3210 IF d=0 THEN LET £=y 

3220 IF d=1 THEN LET £=u 

3230 IF d=2 THEN LET f£=i 

3240 PRINT AT 9,4;"P": BEEP 1/20 

,-5: IF g=r AND f=t THEN GO TO 

7000 

3250 GO TO 2000 

4000 INK 2: PAPER 4 

4010 LET h=t: LET j=r+9 

4020 IF a=0 THEN LET h=t+2 

4030 IF j>14 AND j<18 THEN PRIN 

TOAT j,jh;3"P": LET k=1: BEEP 1/10 


= 
"> 
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4040 IF j=15 AND h=y THEN PRINT 
AT 15,yj5”"PP": LET w=w+5: GO SUB 
5000: PAUSE 1: PAUSE 30: PRINT 

AT 15,yj PAPER 453" ": LET y=1: 

LET s=0: GO TO 3010 

4050 IF j=16 AND h=u THEN PRINT 
AT 1ó,u;3”"PP": LET w=w+5: GO SUB 
5000: PAUSE 1: PAUSE 50: PRINT 

AT 1ló,u;j PAPER 4;3" "”": LET u=1: 

LET s=1: GO TO 3010 

4060 IF j=17 AND h=i THEN PRINT 
AT 17,i;5"P": LET w=w+5: GO SUB 

5000: PAUSE 1: PAUSE 50: PRINT A 

T17,i5 PAPER 43” "Ss LET iz=1: LE 

T s=2: GO TO 3010 

4070 IF j=13 AND h<31 AND h>23 A 

ND ATTR (j,h)=41 THEN PRINT AT 

j,h5 PAPER 553" ": LET w=w+25: GO 
SUB 5000: GO TO 3000 

4080 IF j<>19 OR h<24 OR h=31 OR 
ATTR (j,h)<>349 OR ATTR (13,h)<> 

42 THEN GO TO 3000 

4090 PRINT AT j,h; PAPER 5;3" ”: 

LET w=w+25: GO SUB 5000 

4100 FOR n=294 TO 30 

4110 IF ATTR (14,n)<>42 THEN GO 
TO 3000 

9120 NEXT 

4130 PRINT AT r,t;5 PAPER 5;" a 

¿AT 9,f53" ”": GO TO 1010 

5000 INK 6: PAPER O: BEEP 1/5,-5 

: BEEP 1/5,15: BEEP 1/5,45: BEEP 
E o 

5010 IF w<10 THEN PRINT AT 20,9 

5 wW 

5020 IF vw>=10 AND w<100 THEN PR 

INT AT 20,38;w 

5030 IF v>=100 AND w<1000 THEN 

PRINT AT 20,7;3w 

5040 RETURN 

6010 INK 6: PAPER O 
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6020 IF. ex10 THEN PRINT AT 20,3 

1lje 

6030 IF e>=10 AND ex100 THEN PR 

INT AT 20,30;e 

6040 IF e>=100 AND e<x1000 THEN 

PRINT AT 20,29;e 

6050 RETURN 

7000 PRINT AT 39,$5 INK 2;”"PPP” 

7010 LET q=g-1 

7020 PRINT AT 21,225 -INK 65; PAPE 

R 039 : 

7030 FOR n=30 TO -30 STEP -5: BE 

EP 1/10,n: NEXT n 

7040 IF q)>0 THEN PRINT AT 9,45” 
": GO TO 1000 

7050 PAUSE 1: PAUSE O 

7060 IF w>»e THEN LET e=w 

7070 PRINT AT 9,45” ": GO TO 9 

00 : 
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LABERINTO A 


MEMORIA OCUPADA: 2914 bytes 


VARIABLES 
q Variable de carga (READ) de los gráficos definibles por el usuario. 
El Coordenada vertical del logotipo. 
b Coordenada horizontal del logotipo. 
n Variable de bucle FOR NEXT. 
m Variable de bucle FOR NEXT. 
GRAFICOS 
No utiliza. 
ESTRUCTURA DEL PROGRAMA 
10 Inicio del programa y selección de los colores. 
20 Dibujo de presentación. 


100 Dibujo del logotipo. 
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1000 
1090 
2000 
2010 


Carga de los gráficos definibles por el usuario. 

Gráficos definibles por el usuario. 

Preparación de los colores para la carga del programa principal. 
Carga del programa siguiente. 


COMENTARIO 


Típico programa de presentación y carga de gráficos, previo al programa 
principal. Se observará que los nueve gráficos son sólo tres distintas orienta- 
ciones de sólo dos dibujos, salvo el último que es el de «perseguidor satisfe- 
cho haciendo la digestión del perseguido». 


SUGERENCIA 


Cambie el logotipo por uno a su elección y elimine su coloración aleatoria. 


DUFON( 


LABERINTO B 


MEMORIA OCUPADA: 7878 bytes 


VARIABLES 


Nivel de dificultad. 

Número aleatorio entre Q y 1. 

Máxima puntuación obtenida desde la primera partida, record. 
Número de vidas. 

Puntos. 

Variable de carga (READ) de las partes aleatorias del laberinto. Coorde- 
nada vertical del jugador. 

Variable de carga (READ) de las partes aleatorias del laberinto. Coorde- 
nada horizontal del jugador. 

Variable de carga (READ) de las partes aleatorias del laberinto. 
Variable de carga (READ) de las partes aleatorias del laberinto. Direc- 
ción seleccionada. 

Variable aleatoria de la formación del laberinto. 

Variable de bucle FOR NEXT. 
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Q7io +0 cr 0 ”“< 


Variable de bucle FOR NEXT. 

Indice de reanulación de dirección obligatoria. 

Indice de anulación de dirección 6 obligatoria. 

Indice de anulación de dirección 7 obligatoria. 

Indice de anulación de dirección 5 obligatoria. 

Indice de anulación de dirección 8 obligatoria. 

Número inicial de ciclos de juego. 

Coordenada vertical del guardián. 

Coordenada horizontal del guardián. 

Carácter de la tecla apretada, selección nivel dificultad. 
Carácter de la tecla apretada, selección del laberinto en colores. 
Carácter de la tecla apretada, selección de dirección. 


GRAFICOS 


eo Td 
“p” 
“A” 
“a” 
de 
11 D"* 
“pr 
“G"” 
44 H” 
“E” 
“G"” 
“Mp” 
“E ” 
11 H” 


su 
ESTRUCTURA DEL PROGRAMA 


Inicio del programa y selección sie los colores. 

Instrucciones de juego. 

Valoración de variables para la od partida. 

Valoración de variables. 

Construcción del laberinto. 

Valoración de variables. 

Ciclo de juego, zona sólo activa hasta la aparición del guardián. 
Ciclo de juego, zona de control del jugador. 

Ciclo de juego, zona de control del ordenador. 

Subrutina de vida perdida. 

Subrutina de representación gráfica de la máxima puntuación. 
Subrutina de la representación gráfica de la puntuación. 
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COMENTARIO 


Típico juego de laberinto y perseguidor que come en el que destacan tres 
factores: primero; la aleatoriedad del laberinto, dadas las características de su 
construcción es prácticamente imposible conseguir dos exactamente iguales. 
Segundo; la complejidad del laberinto, faceta ésta que se encuentra en esca- 
sos juegos de este tipo por las causas que explicamos a continuación. Y terce- 
ro; la sofisticada lógica de seguimiento (que quede claro que estamos hablan- 
do de lógica de seguimiento muerta, o sea, sin memorización de recorrido rea- 
lizado). Lógica sofisticadamente necesaria para poder realizar un seguimiento 
mínimamente aceptable en un laberinto de las características que éste posee. 

A pesar de elevada sofisticación del sistema de rastreo, sigue quedando un 
alto índice de probabilidades de pérdida del perseguidor, para lo cual se ha 
optado por el sistema de «guardián de la salida», que consiste en hacer apare- 
cer el perseguidor por la salida cuando la distancia que le llevaba el jugador 
era excesiva. 

El laberinto consta que una parte fija (1010, 1020, 1030) y otra aleatoria, com- 
binadas de manera que siempre tiene salida. 

El sistema de lógica de rastreo consta de una fase de movimientos condicio- 
nados por las coordenadas del jugador (3010, 3020, 3030, 3040), otra fase de 
movimientos no condicionados por las coordenadas del jugador (3050, 3060, 
3070, 3080), una tercera fase de cambio de dirección cuando se está bajo mo- 
vimiento de la fase 2 (3100, 3110) y una cuarta fase de cambio de dirección 
cuando se está bajo movimiento de la fase 1 (3120, 3130, 3140, 3150). 


SUGERENCIA 


Sería interesante aumentar la dificultad haciendo la salida invisible y aleato- 
ria. Como sistema de orientación se podría hacer que al pulsar el 1 sonase un 
tono en función de si la dirección que se llevaba estaba o no encarada con 
la salida. 


LABERINTO - A 


1 GO TO 20 

10 CLS : BORDER O: INK O: PAPE 
R 4: RUN 

20 PAPER 6 

30 FOR n=0 TO 6: FOR m=0 TO 21 
: PRINT AT m,n;j*"g9c8": NEXT m: NE 
XT n 

40 LET m=2: LET n=0 

50 PRINT AT m,nj INK 1;3"3  c8c 
8c8c8 "¿AT m+1,n5”"9 c8c38c8 c8c8 
"¡AT m+2,n;53"39 c8c8gc8c8c8c8c8”";A 
T m+3,n53*"39 c8c8c8 c38 "¿AT m+49,n 
3"g c8c8c8c8c8 ";j¡AT m+5,n;j"g Cc 
8c "3AT m+6,n53"g  c8c8c808 

60 PRINT AT m+11,n;3"39 c8cscscs 
c8c8c8 ";jAT m+12,n5"9 c8c8c8c8c8 
c8"3AT m+13.n;3"9 c8c8c8 cs "AT 
m+14,n5"39 c8c8c8c8c8c8 "¿AT m+1 
5,n;5"9 c8c8gc8c8c8 "jAT mtió,n;” 


g  c8ca "3AT m+17,n53"9 c8c8c 
SESEcS. + 
70 1F n<22 THEN LET n=n+1: GO 
TO 50 


30 PRINT AT 3,25 INK 3;3"39c7? c3 
c?zc3c?c3c7?rc3c7?c7c344c34c34c3";AT 
4,25;3"390c5 cic5Sci2ct cic5c5c8scz c 
yc” 3AT 3,23"9c1c?c3cScicdcia 
?7c4c7?c3Sc5cs cs5c24c2" 

90 PRINT AT 7,75 "SOFTWARE" 

100 READ a,b: PRINT AT a,b; INK 
1+INT (RNDXS);"9c8" 

110 IF a<>18 OR b<>17 THEN. GO 
TO 100 
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120 PRINT AT 14,83 INK 1+INT (R 
NDX5)3"9c5"5AT 15,853 INK 1+INT ( 
RND*X5)5"9c5"5AT 17,85 INK 1+INT 

(RNDX5);"9c5"j¡AT 18,85 INK 1+INT 

(RNDX5)5”"9c5s" 

130 DATA 14,3,15,3,16,3,17,3,18 
,3,14,4,16,4,18,4,14,5,18,5,14,7 
,15,7,16,7,17,7,18,7,16,8,14,9,1 
5,9,16,9,17,9,18,9,14,11,15,11,1 
6,11,17,11,18,11,14,12,16,12,14, 
13,14,15,15,15,16,15,17,15,18,15 
,14,16,16,16;,18,16,14,17,18;,17 
1000 FOR n=0 TO 71 
1010 READ q 
1020 POKE USR "a"+n,q 
1030 NEXT n 
1040 DATA O,BIN OO0111100,BIN O11 
O1110,BIN 11111110,BIN O1001110, 
BIN OO111110,BIN 00001100,BIN 00 
111100 
1050 DATA O,BIN O0111100,BIN 010 
11010,BIN O1111110,BIN O1100110, 
BIN O00111100,BIN 00011000,BIN 00 
111100 
1060 DATA O,BIN OO0111100,BIN O11 
11110,BIN O1111110,BIN O1111110, 
BIN O0111100,BIN 00011000,BIN 00 
111100 
1070 DATA O,BIN OO0O111100,BIN O11 
10110,BIN O1111111,BIN O1110010, 
BIN O1111100,BIN 00110000,BIN 00 


111100 
1080 DATA O,BIN O1111110,BIN 111 


11110,BIN OO101110,BIN O1111110, 
BIN OO111110,BIN O0001100,BIN OO 
111100 

1090 DATA O,BIN O1111110,BIN O11 
11110,BIN O1011010,BIN O1111110, 
BIN OO111100,BIN O0011000,BIN 00 
LALO 
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1100 DATA O,BIN O1111110,BIN O11 
11110,BIN O1111110,BIN O1111110, 
BIN OO0111100,BIN 00011000,BIN 00 
111100 

1110 DATA O,BIN O1111110,BIN O11 
11111,BIN O1110100,BIN O1111110, 
BIN O1111100,BIN O00110000,BIN 00 
111100 

1120 DATA O,BIN O1111110,BIN 010 
11010,BIN O1111110,BIN 01000010, 
BIN O0111100,BIN 00011000,BIN 00 
000000 

2000 PAPER 6: INK 6: PRINT AT 17 
,0 

2010 LOAD ”” 


LABERINTO - B 


1 GO TO 20 
10 PAPER O: BORDER O: RUN 
20 CLS : PRINT AT 0,03 INK 2; 
BRIGHT 1;5"En. cuanto entre en el 
laberintoprohibido sera persegu 
ido por elguardian de la entrada 
. Si no seentretiene y escoge 
el caminoadecuado podra despist 
arlo.”jAT 6,0;”"Sin embargo...cui 
dado, cuando elguardian de la en 
trada se pierdaavisara al de la 
salida, al cualtendra que atraer 
y despistar siquiere salir.” 
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30 PRINT AT 12,05 INK 4;"Para 
moverse por el laberintoutili 
ce las teclas 3,6,7 y 8 enlas d 
irecciones que indican lastflech 
as. Por cada laberinto queatrav 
iese sumara 100 puntos.  Nopierd 
a el tiempo memorizandolos,aunqu 
e puedan parecerse, ningunoes ig 
ual.” 
40 PRINT AT 21,035 INK 6;"Selec 
cione dificultad; 1 , 2 O 3" 
50 IF INKEYS$="" THEN BEEP 1/1 
O, INT (RNDX30): GO TO 50 
60 LET g$=INKEYS: IF g$<>"1" A 
ND g$<>*"2"” AND gs$<>"3" THEN GO 
TO 50 
70 LET g=VAL g%$: PRINT AT 21,0 
3 INK ó6;j"0Quiere laberinto de col 
oresj s/n": IF INKEYS<>"" THEN 
GO TO 70 
80 IF INKEY$="" THEN BEEP 1/1 
O, INT (RNDX30): GO TO 80 
90 LET m$=INKEYS: IF m$<>"s" A 
ND m$<>"n" THEN GO TO 70 
100 LET z=0: LET o=0 
900 LET k=3: LET p=0 
1000 PAPER 7; INK 1+INT (RNDX9): 
IF m$="s" THEN  —INK 7? 
1010 PRINT AT 0,0;"9c8 c8c8c8c8ac 
8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c 
8c8c8c8c8c8c8c8c8c8c08 c8 
ce c8 c8c8 c8cs 
c8 c8c8 c8 c8c8c8c8 cs c8c8 cs c 
8cg8c8c8 c8 cg8c8 cs c8 c8 c8 
c8 cs c8 c8 c8cs c8c8 
c8 c8 c8 c8 c8c8c8 c8c8 ce 
c8 c8c8 c8 ca c8 cs c8 ce 
c8 ce c8c8 c8cs c8 c8c8c8 
cs c8 c8 c8 c8 ¿8 c8c8 
c8c8ca c8 c8 c8 c8c8g 'c8 ca 
c8c8c8 c8 cae” 
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1020 PRINT AT 8,0;”9c8 c8c8 c 

8c8c8 c8 cg c8e c8c8 ca c 

8c8c8 c8 -  ¿8c8c8c8c8 c8 € 

8 c8 c8 c8c8 —c8c808 808 
c8c8c8c8c8g ca ce c8 c8 c8c8 
c8 c8 ce c8e «cs 

c8ca c8c8 cs8cae c8 c8 c8 c 

8 c8 c8 c8c8 c8 ca Cc8c8 C8 

ce C8 ce c8 Cc8 C8 

c8c8c8 C8 c8 c8 c8 c8 c8 c8 c8 c 

8 c8 ce” 

1030 PRINT AT 15,0;"9c8 c8ca 


c8 c8 c8 c8 c8  'c8c8 
c8c8 c8c8c8cg —c8c8cac8c8c8ec 
8c8c8 c8 ce c8c8: c8 ce c8 
c8c8 - c8c8 c8c8 cs 
c8 c8 c8 c8 c8 Cc8c8g Cc8c8 cs8c 

8 c8 c8c8 cs c8 ce 
c8 c8c8c8c8c8c8c8c8c8 


c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8c8 
c8c8c8c8c8c8c8”": IF 9=3 THEN PR 
INT AT 14,26;"9c8";AT 16,28;"9Cc8 
1040 READ a,b,c,d 

1050 LET x=INT (RNDX2) 

1060 IF x=0 THEN PRINT AT a,b;” 
gce” 

1070 IF x=1 THEN PRINT AT c,d;3” 
gcse” 

1080 IF a=10 AND b=28 THEN GO T 
O 1090 

1085 GO TO 1040 

1090 READ a,b,c,d,e,f 

1100 LET x=INT (RNDX3) 

1110 IF x=0 THEN PRINT AT a,b5” 
gcse” 

1120 IF x=1 THEN PRINT AT c,d;3” 
gce" 

1130 IF x=2 THEN PRINT AT e,tf;5”" 
gcse" 
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1140 IF a<>1 THEN GO TO 1090 
1150 LET x=INT (RND%3) 
1160 IF x=0 THEN PRINT AT 10,12 
5"9c8";jAT 10,19;"9c8” 
1170 IF x=1 THEN PRINT AT 10,12 
5"9c8";AT 17,8;”9c8” 
1180 IF x=2 THEN PRINT AT 10,19 
$"9c8";jAT 17,8;"9c8" 
1190 LET x=INT (RNDXZ) 
1200 IF x=0 THEN PRINT AT 11,16 
$"9c8";jAT 11,205"9c8"jAT 13,14;" 
gc8”5AT 13,16;”"9c8"5AT 13,18;”9c 
"5AT 13,203"9c8"5AT 15,149;"9c8" 
¡AT 15,18;"9c8";3AT 15,22;3"9c8" 
1210 IF x=1 THEN PRINT AT 10,21 
3"9c8"jAT 12,133"9c8"3AT 12,153” 
gc8”"jAT 12,175"90c8"5AT 12,19;5”9c 
"s5AT 14,15;"9c8"53AT 14,17;”9c8” 
¿AT 14,19;"9c8"5AT 14,21;"9c8" 
1220 DATA 12,10,15,10,14,26,13,2 
7,18,17,19,18,8,29,11,27,9,26,10 
125,13,24,17,24,17,16,10,17,13,1 
.17,3,1,2,35,1,9,30,5,29,2,9,7,8, 
8,3,9,2,16,2,18,7,16,7,17,1,10,1 
O0,11,11,6,10,1,10,5,11,35,12,2,16 
3. 17,1,20,4,20,108,11,19,12,18,2 
6,18,28,4,24,6,27,7,28,11,29,10, 
28,12,28 
1230 DATA 15,29,16,30,17,29,17,2 
2,18,20,19,19,4,2,3,5,5,3,11,4,1 
3,4,11,8,10,6,12,6,14,2,6,14,6,1 
6,7,15,1,27,2,28,9,27: IF m$="n" 
THEN GO TO 1270 
1240 FOR n=0 TO 671 
1250 POKE 22528+n,537+(INT (RND*5 
)) 
1260 NEXT n 


1270 PRINT AT 21,05 INK 65 PAPER 
O;"PUNTOS 0000 VIDAS RECORD 


0000” 
1280 GO SUB 5000: GO SUB 6000: R 
ESTORE 
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1290 PRINT AT 21,18; INK 65 PAPE 

R 05k 

1300 PRINT AT 0,13 INK 7;"9c8"5A 
T 19,31; PAPER 0;”"(inversion vid 
eo) >” 

1310 LET v=0: LET r=0: LET s=0: 
LET t=0: LET w=0: LET j=0 

1320 IF j=0 THEN FOR n=30 TO 50 
STEP 5: BEEP 1/25,n: NEXT n: PR 
INT AT 1,1;"B": LET a=1: LET b=1 
1330 IF p=0 AND k=3 THEN PAUSE 
1: PAUSE O 

1980 IF j=30/9 THEN PRINT AT 1, 
15"F": LET e=1: LET £=1 

1990 GO TO 2010 

2000 BEEP 1/250,15 

2010 LET d$=INKEYS: IF e=a AND f 
=b THEN GO TO 4000 

2020 IF d$<>"5" AND d$<>"6" AND 
d$<>"7" AND d$<>"3" THEN GO TO 
2090 ¡ 

2030 IF d$<>"" THEN LET d=VAL d 

$ 

2040 IF d=5 AND POINT (8%*(b-1),1 
75-8%a)=0 THEN PRINT AT a,b-1;3" 
A ": LET b=b-1: BEEP 1/250,50 
2050 IF d=6 AND POINT (8Xb,175-8 

*(a+t1))=0 THEN PRINT AT a,b;3” ” 
¡AT a+t1,b;5"B": LET a=a+1: BEEP 1 
/250,50 

2060 1F d=7 AND POINT (8Xb,175-8 
*(a-1))=0 THEN PRINT AT a,b;” " 
SAT a-1,b;3"C": LET a=a-1: BEEP 1 
/250,50 

2070 IF d=8 AND POINT (8X(b+1),1 
75-8%a)=0 THEN PRINT AT a,b;3” D 
": LET b=b+1: BEEP 1/250,50 

2080 IF a=19 AND b=30 AND d=8 TH 
EN LET p=p+100: GO SUB 6000: BE 
EP 1/10,15: BEEP 1/10,15: BEEP 1 
/10,15: BEEP 1/5,30: BEEP 1/10,1 
5: GO TO 1000 
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2090 IF j<30/9 THEN LET j=j+1: 
GO TO 1980 
2100 IF v=1 THEN LET z=INT (RND 
%*2): IF z=0 THEN GO TO 3050 
3000 IF b-$>15 THEN PRINT AT e, 
$3" ": LET e=19: LET £=30 
3010 IF a»e AND POINT (8%f,175-8 
X*íe+1))=0 AND r=0 THEN PRINT AT 
esti" "¡AT et1,f;3"F": LET e=e+1 
: LET t=0: LET w=0: GO TO 2000 
3020 IF a<e AND POINT (8%Xf,175-8 
*(e-1))=0 AND s=0 THEN PRINT AT 
e,tftj” "¡AT e-1,f3"G": LET e=e-1 
: LET t=0: LET w=0: GO TO 2000 
3030 IF b>* AND POINT (8X*(4+1),1 
75-8%*e)=0 AND t=0 THEN PRINT AT 
esti" H": LET 4=$+1: LET r=0: L 
ET s=0: GO TO 2000 
3040 IF b<f AND POINT (8*X(4-1),1 
75-8%e)=0 AND w=0 THEN PRINT AT 
es,t-13"E ": LET $=$-1: LET r=0: 
LET s=0: GO TO 2000 
3050 IF r=1 AND POINT (8%+,175-8 
*íe-1))=0 THEN PRINT AT e,tf;3" ” 
¡AT e-1,+4f;5"G": LET e=e-1: LET y= 
0: GO TO 2000 
3060 IF s=1 AND POINT (8Xf,175-8 
X*íe+1))=0 THEN PRINT AT e,tf;3”" ” 
¡AT e+1,f;”F": LET eset1: LET y= 
O: GO TO 2000 
3070 IF t=1 AND POINT (8X*(4-1),1 
75-8%e)=0 THEN PRINT AT e,tf-1;" 
E ": LET +=4$-1: LET v=0: GO TO 2 
000 
3080 IF w=1 AND POINT (8X(4+1),1 
75-8%e)=0 THEN PRINT AT e,f;” H 
"”: LET £$=4+1: LET v=0: GO TO 200 
o 
3090 LET z=INT (RND*Z) 
3100 IF r=1 OR s=1 THEN LET t=z 
: LET w=ABS (z-1): LET r=0: LET 
s=0: LET v=1: GO TO 2010 
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3110 IF tz=1 OR wz=i THEN LET r=z 
: LET s=ABS (z-1): LET t=0: LET 

W=0: LET v=1? GO TO 2010 

3120 IF z=0 AND ae THEN LET r= 
1: GO TO 2010 

3130 IF 2z=0 THEN LET s=1:% GO TO 
2010 

3140 IF b>f THEN LET t=1: GO TO 
2010 

3150 LET w=1: GO TO 2010 

4000 LET k=k-1: PRINT AT 21,18; 
INK 6; PAPER Oj5kj5AT a,bj INK 2; 

PAPER 73 FLASH 13"1*: FOR n=45 T 

O -15 STEP 5: BEEP 1/15,n: NEXT 
n: FOR m=0 TO 20: BEEP 1/40,-25: 
BEEP 1/40,-3: NEXT m 

4010 IF k>0 THEN GO TO 1000 
4020 IF p>o THEN LET o=p 

4030 PAUSE 1: PAUSE O: GO TO 900 

5000 INK 6: PAPER O: IF 0>0 AND 

otxt1i00 THEN PRINT AT 21,300 
35010 IF o0>=100 AND o<1000 THEN 

PRINT AT 21,29;0 

35020 IF 0>=1000 THEN PRINT AT 2 
1,2830 

5030 INK O: PAPER 7: RETURN 

6000 INK 6: PAPER O: IF p>0 AND 
p<100 THEN PRINT AT 21,9;5p 

6010 IF p>=100 AND p<1000 THEN 
PRINT AT 21,8j3p 

6020 IF p>=1000 THEN PRINT AT 2 
1,75p 

6030 INK O: PAPER 7: RETURN 
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Video-juegos 
LA MINA (16K/48K) 


Debes recoger las 40 bolsas escondidas en la mina y meterlas en tu ca- 
rretilla. Puedes subirte en las vagonetas y ascensores, pero cuidado con 
los atropellos, caídes y los policías que te persiguen. 3 pantallas. Extraor- 
dinarios gráficos animados. C.M 1.000, — 


WRECKAGE (16K/48K) 


Increíbles gráficos en 3 dimensiones. Debes eliminar a las 
naves enemigas antes de que destruyan tu ciudad con sus 
bombas. Dificultad progresiva hasta lo imposible. 16 panta- 
llas. C.M., J.K. 1.000, — 


TUNELES MARCIANOS (48K) 


Recoge las siete llaves que abren el cofre del último túnel, en las doce- 
nas de túneles que debes atravesar para llegar a él. En cada uno de ellos, 
debes destruir a todos los guardianes para que se abran las puertas que 
te permiten pasar al siguiente. En alguno encontrarás vidas extras que 
tratarán de escaparse. Interminable sucesión de distintas o Es 
traordinarios gráficos animados. C.M., J.K. 


AUTOSTOPISTA GALACTICO 
(48K) 


Te hallas en medio del espacio y debes recoger botellas de oxígeno para 

subsistir y dinero para pagar las naves-taxi. Encuentra un planeta y si- 

túate en él para hacer auto-stop. Hay naves-600, naves-ROLLS, naves- 

policía, naves-basurero, naves-taxi y naves-dudosas que te pueden ro- 

bar el dinero. De este modo debes llegar al planeta cental de la inmensa 

ra ayudado de tu mapa galáctico. Extraordinarios gráficos. C.M., 
1. 


ROBOT FACTORY (48K) 


Dirige la cadena de montaje de robots para fabricar el mayor número po- 
sible. Llena los depósitos antes de que se vacíen, ajusta la velocidad de 
la cadena, pero cuidado con los robots defectuosos que te e y las 
caídas. C.M., J.K. 1.700, — 


ESCALADOR LOCO (48K) 


Sube por las ventanas del edificio. Cuidado con pillarte los dedos en las 
que se cierran, y con los tiestos, paquetes y bates de béisbol que te lan- 
zan desde arriba. Hay diferentes zonas de ventanas donde la dificultad 
es mayor. C.M., J.K. 1.700, — 


MANIC MINER (48K) 


Número Uno de ventas en Inglaterra. Hay que pasar las 20 cavernas de 
la mina y recoger las llaves para salir. Cada caverna es un juego distinto. 
Increíbles gráficos animados y sonido continuo. C.M., J.K. 1.700.— 


JET SET WILLY (48K) 


Willy, el minero de Manic Miner, es ahora rico y vive en una lujosa man- 
sión de 60 habitaciones. Una noche, después de una fiesta, debe reco- 
ger los vasos que han quedado dispersados por las habitaciones antes 
de que su ama de llaves le deje ir a la cama. Cada habitación es un juego 
distinto. Increíbles gráficos animados y sonido continuo. Número Uno 
de ventas en Inglaterra. C.M., J.K. 1.700, — 


Gestión 


CONTABILIDAD PERSONAL 
(48K) 


La manera idónea de llevar una pequeña contabilidad doméstica o del 
negocio. Presenta balances en 64 caracteres por línea. Salida por cual- 
quier tipo de impresora en papel normal o ZX. 2.500, — 


CONTROL DE STOCKS 
64 COLUMNAS (48K) 


Todo el desarrollo del programa se maneja desde un menú en pantalla, 
de muy fácil manejo. Presentación en pantalla de 64 caracteres por lí- 

nea. Incluye control de mínimos y facturación. Salida por todo tipo de 
impresoras en papel normal o ZX. 3.000, -- 


CONTEXT: 
PROCESADOR TEXTOS 
64 COLUMNAS (48K) 


Una aplicación casi impensable del ZX-SPECTRUM. Realizado Íntegra- 

mente en código máquina, este programa tiene la mayoría de las presta- 

ciones de los procesadores de textos de los grandes ordenadores: justi- 

ficación, caja, márgenes, inserción, copia de párrafos, edición. Además, 

lleva los caracteres castellanos y acentuados. Presentación en pantalla 
de 64 caracteres por línea y salida por cualquier tipo de impresora de pa- 

A. 


SIMPLEX: PROGRAMACION 
LINEAL (16K/48K) 


Resolución del problema de maximización en programación lineal por el 
método Simplex. 


ASTROLOGIA (48K) 


2.500, — 


Realiza el cálculo de las posiciones planetarias (longitudes eclípticas) y 
de las «casas» astrológicas (por el método de Regiomontanus), repre- 
sentando luego todos estos datos sobre el fondo de la bóveda celeste, 
lo que en astrología se denomina «carta astral». 


EMISION/RECEPCION 
MORSE (48K) 


Con este programa, el ZX-SPECTRUM puede ser conectado a la salida 
de altavoz de un receptor MORSE y decodificarlo en pantalla. Asimis- 
mo, permite la operación a la inversa. Dispone de varias posibilidades 
para el archivo de textos fijos y emisión directa. La velocidad de recep- 
ción puede variar hasta un 40% sin errores en la decodificación.2.000, — 


COL64C + LISTADOR 
BASIC ESPAÑOL (48K) 


Convierte al ZX-SPECTRUM en un ordenador de 64 caracteres por línea 
en pantalla. Funciona con LIST, PRINT, AT y TAB normalmente, pero 
con 64 columnas en lugar de 32, y además tiene la posibilidad de listar 
los programas en BASIC español. 


Educativos 
EL CONSTRUCTOR (48K) 


El popular juego de construcciones con figuras geométricas ahora con 
ri rial de piezas, goma de borrar, modelos en os etc. 
C.M., 


MAS DE 100 TÍTULOS. NOVEDADES CADA MES. DISPONIBLES EN 
TIENDAS ESPECIALIZADAS Y DIRECTAMENTE O POR CORREO EN 
VENTAMATIC. 
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club 
NAGIONAL DE 
USUARIOS DE LOS 


Boletín informativo exclusivo para los socios. 

Servicio telefónico de consultas. 

Fabulosas ofertas especiales. 

Descuentos del 10% y plaza preferente en los cursos de informática de VEN- 
TAMATIC en Barcelona. 

Grandes descuentos para los socios de hasta el 35% en sus compras de orde 
nadores, periféricos, accesosorios y programas (SINCLAIR, COMMODO- 
RE, ORIC, etc.) a VENTAMATIC. 

Sorteos de programas en cada boletín. 

Posibilidad de comercializar los programas realizados por los socios. 
Regalo a elegir al formalizar la inscripción. 


INFORMACION E INSCRIPCIONES 


VENTAMATIC - Dpto. Venta por Correo - Avda. de Rhode, n.* 253 ROSAS 
(Gerona), o personalmente en VENTAMATIC - Exposición, Venta y Cursos 
- C/ Córcega, n.” 89, entlo. -08029 BARCELONA. 
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TITULOS DE PROXIMA APARICION 


EN LA COLECCION VENTAMATIC 
— JUEGOS, PROGRAMAS Y RUTINAS PARA 
EL ZX-SPECTRUM 

AUTOR: LUIS AMADO 
— TODO LO QUE QUERIA SABER DEL 
ZX-SPECTRUM, 


Y TODAVIA NADIE SE LO HA SABIDO EXPLICAR 
AUTOR: VICENTE MENDOZA 


OTROS TITULOS YA PUBLICADOS 


— GUIA PRACTICA DE BASIC DEL ZX81 
Y DEL SPECTRUM 


AUTOR: RAMON ROVIRA. 148 Págs. ISBN 84-247-0190-9. 
1.200,— Ptas. 


— PROGRAMACION EN CODIGO MAQUINA 
PARA EL ZX81 Y PARA EL SPECTRUM 


AUTOR: JOAN SALES. 158 Págs. ISBN 84-247-0193-3. 
1.200,— Ptas. 


— ZX-INTERFACE 1 y 
Z¿X-MICRODRIVES: QUE SON, 
PARA QUE SIRVEN Y COMO SE USAN 


AUTOR: VICENTE MENDOZA. 136 Págs. ISBN 
84-86361-00-1. 1300,— Ptas. 


DISPONIBLES EN LIBRERÍAS, TIENDAS ESPECIALIZADAS, 
ETC. O DIRECTAMENTE Y POR CORREO EN VENTAMATIC. 
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PROXIMAS NOVEDADES 


JUEGOS 


TORNADO LOW LEVEL. Fabuloso juego 
en 3D con gráficos espectaculares en tres dimensio- 
nes. Dirigiendo un caza, el jugador debe usar toda 
su habilidad para neutralizar los objetivos enemigos, 
tratando de volar a baja altura para conseguirlo. Al 
mismo tiempo habrá de evitar el choque con las ca- 
sas y postes telefónicos. Núm. 1 en Inglaterra. Total- 
mente traducido al castellano. C.M. 

P.V.P. 1.700,— Ptas. 


CODENAME MAT. El jugador se sitúa a los 
mandos de una gran nave y su misión consiste en de- 
fender a la Tierra de los ataques de las naves enemi- 
gas. Para ello cuenta con una gran fuerza, pero dis- 
persada por el Sistema Solar. Se dispone de ordena- 
dor a bordo de la nave como ayuda en algunas ta- 
reas, además de Scanner de larga distancia para lo- 
calizar los planetas y la flota propia. Moviéndose a 
través de los cuadrantes se debe intentar que los ata- 
ques enemigos no consigan dominar ninguno de los 
planetas del Sistema Soiar para que no puedan ins- 
talar en él sus bases e invadir la Tierra. En la nave 
se puede luchar con el enemigo con un rayo laser y 
se dispone de dos tipos de ventanas para mirar al ex- 
terior, una da la visión por delante de la nave y la 
otra por la parte posterior de ésta. Considerado co- 
mo uno de los mejores juegos para el Spectrum. 
C.M., J.K. P.V.P, 1.700,— Ptas. 


MAD CARS. Fantástico juego de carrera de co- 
ches. El jugador debe tratar de hacer los máximos ki- 
lómetros posibles sin chocar con los múltiples adver- 
sarios de carrera y cuidando de no patinar con las 
manchas de aceite que hay en todo el recorrido, vi- 
gilando los estrechamientos y ensanchamientos de la 
carretera. Todo ello a través de un inmenso recorri- 
do que pasa por circuito de carreras, campo a tra- 
vés, desiertos, puentes sobre el mar e incluso carre- 
teras fantasmas. Los gráficos del juego son excelen- 
tes y el rápido movimiento de la carretera hace pen- 
sar que estamos manejando una máquina de bar y 
no un Spectrum por su excelente resultado, habién- 
dose conseguido un circuito de más de 1.500 panta- 
llas en total. C.M., J.K. P.V.P. 1.700,— Ptas. 


CYRUS IS CHESS. Este juego ha adquiri- 
do la fama de ser el mejor juego de ajedrez realizado 
para el Spectrum dadas las posibilidades que ofrece 
y el excelente comportamiento y rapidez que como 
jugador, desarrolla. De entre las numerosas posibili- 
dades que incorpora cabe destacar el estudio de ju- 
gadas preparadas por el usuario, sus doce niveles de 
juego, la posibilidad de repetir la partida completa pa- 
ra que el usuario pueda estudiarla detenidamente, el 


imprimir las jugadas en una impresora (ZX) y la posi- 
bilidad de grabar en cassette la partida a medias para 
continuarla en cualquier ocasión. Realizado por el 
Campeón de Europa de Ajedrez de 1981, su nivel 
de respuesta y calidad son realmente apreciables ha- 
biendo conseguido ganar en varios torneos al Cray-1, 
el super-ordenador del Ministerio de Defensa de los 
Estados Unidos de América. Tanto el manual de uso 
como el programa están traducidos al castellano. 

P.V.P. 3.000,— Ptas. 


3D FULL THROTTLE. Ponte a los mandos 


de tu Honda 500 c.c. y elige uno de los diez circuitos 
europeos para empezar a competir en el Campeo- 
nato del Mundo. 
En cada carrera compiten 40 motocicletas y debes in- 
tentar llegar al final en la mejor posición posible, te- 
niendo mucho cuidado con los choques ya que te ha- 
rán perder posiciones. 
El juego está desarrollado en 3 dimensiones y el efecto 
de movimiento en la pantalla es sumamente real, así 
como los derrapes y las curvas inclinando la moto. 
Los gráficos son espectaculares y es muy posible que 
pases muchas horas con tu Spectrum ya que este jue- 
go es de lo más entretenido. C.M., J.K. 

P.V.P. 1.700,— Ptas. 


3D INTERCEPTOR. En este juego debes in- 
tentar avanzar por los numerosos desiertos galácticos 
del planeta Kobra eliminando a los vigilantes del pla- 
neta para conquistarlo. 

Parece fácil, pero por el planeta hay una gran canti- 
dad de meteoritos que debes eliminar con tu rayo la- 
ser para no chocar con ellos y a medida que avanzas 
vas perdiendo energía por lo que tendrás que ir co- 
giendo las pirámides energéticas que vayas encon- 
trando en tu camino. 

Los gráficos y el efecto 3D son realmente impresio- 
nantes. C.M., J.K. P.V.P. 1.700,— Ptas. 


GESTION 
CONTEXT V.6. Como es sabido este progra- 


ma es un completo procesador de textos en 64 co- 
lumnas que incorpora todas las facilidades de los pro- 
cesadores de textos de grandes ordenadores como 
justificación de márgenes, caja, inserción de párra- 
fos, etc. 

La versión que se presenta, está preparada para tra- 
bajar con Microdrives y/o cassette y cualquier Inter- 


face de Impresora, ya sea por medio del RS-232 del 
ZX-Interface 1 o por medio de un Interface del tipo 
Centronics o con cualquier impresora ZX ó Seikosha 
GP-50 S. Además se ha implantado la posibilidad de 
cartas personalizadas y textos variables para cada carta 
o texto. P.V.P. 4.000,— Ptas. 


CONTABILIDAD PERSONAL. Se trata 
también de una nueva versión del programa que ve- 
níamos comercializando con el mismo nombre, adap- 
tada para su funcionamiento con los Microdrives y/o 
cassette y con salidas para impresora por medio de 
Interface 1 (RS-232) ó por un Interface Centronics. 
El programa permite llevar una contabilidad domés- 
tica o de pequeño negocio. Presenta balances en 64 
caracteres por línea. P.V.P. 2.500,— Ptas. 


S.I.T.I. Sistema Integrado de Tratamiento de In- 
formación. Este programa de creación propia es la 
más perfecta base de datos en 64 columnas creada 
hasta hoy para el Spectrum. Sus posibilidades son in- 
finitas y su facilidad de manejo realmente asombro- 
sa. Su funcionamiento ha sido concebido de forma 
que su utilización sea la más cómoda posible mante- 
niendo la información compactada al máximo. 

El formato de cada fichero se crea por medio de un 
cursor en la pantalla y se pueden ir colocando los 
campos en el lugar de la pantalla que se deseen. El 
programa no memoriza el formato hasta que se pul- 
sa una tecla por lo que el usuario puede ir variando 
y modificando la situación de los campos hasta en- 
contrar la distribución idónea para sus necesidades. 
En cada ficha se pueden incluir diferentes tipos de 
campos, incluyendo numéricos, alfanuméricos, de fe- 
cha, campos calculados a partir de otros campos nu- 
méricos y con cualquier fórmula y/o teniendo en 
cuenta campos de las fichas anteriores, expresiones 
lógicas, etc. 

Se pueden seleccionar fichas según un criterio dado 
que puede ser muy complejo, reordenar todo el fi- 
chero por un campo dado, anular un grupo de fichas 
seleccionadas, descargar en un fichero auxiliar inde- 
pendiente cualquier parte del fichero, listar las fichas 


seleccionadas por impresora en formato pantalla, lis- 
tado de información en formato paginado, listado de 
etiquetas con los campos que se deseen, obtener in- 
formes estadísticos instantáneos sobre cualquier gru- 
po de fichas seleccionadas y las clásicas opciones de 
carga del fichero, save del fichero, save del progra- 
ma más fichero, merge de un fichero con otro, etc. 
Todas estas operaciones pueden realizarse tanto des- 
de Microdrive como desde cassette. Se incluye un 
completo manual en castellano con numerosos ejem- 
plos de utilización para que el usuario sea consciente 
de las posibilidades de utilización que están a su al- 
cance. 

Los listados mencionados pueden hacer a través del 
Interface RS-232 del ZX-Interface 1 6 a través de un 
Interface Centronics y en cualquier tipo de Impreso- 
ra ZX Óó GP-50 S. P.V.P. 4.000,— Ptas. 


BETA BASIC. Algunos usuarios se quejan de 


que el BASIC de Sinclair no les-ofrete todos los co- 
mandos que ellos desearían. Para ellos y para quie- 
nes deseen ampliar la capacidad de su ordenador y 
obtener unos resultados de calidad con sus progra- 
mas en Basic, hemos preparado este programa que 
incorpora-una gran cantidad de nuevos comandos 
con una facilidad de usó similar a la de los comandos 
del Spectrum, es decir sin programas complicados ni 
«POKE's» raros sino pulsando una sola tecla. Los 
nuevos comandos que incorpora son: 

ALTER, AUTO, CLOCK, DEF KEY, DEF PROC, 
DELETE, DO, DPOKE, EDIT, ELSE, END PROC, 
EXIT IF, FILL, GET, JOIN, KEYIN, LOOP, ON, ON 
ERROR, PLOT (para cadenas), POKE (para cade- 
nas), POP, PROC, RENUM, ROLL, SCROLL, 
SORT, SPLIT, TRACE, UNTIL, USING, WHILE, 
XOS, XRG, YOS, YRG, AND (bit a bit), BIN$, 
CHAR$, COSE (coseno rápido), DEC, DPEEK, Fl- 
LLED, HEX$, INSTRING, MEM, MEMORYYS, 
MOD, NUMBER, OR (bit a bit), RNDM, SCRN$, SI- 
NE, STRING$, TIME$, USING$, XOR. 

El programa se presenta con un completísimo manual 
de instrucciones en castellano, con multitud de ejem- 
plos de utilización de cada comando y sus posibilida- 
des. P.V.P. 3.000,— Ptas. 


NUEVOS PROGRAMAS 


HISOF DEVPAC. Se trata de un conjunto de 
dos programas: GENS3M2 (ensamblador) y 
MONS3M2 (desensamblador). 

Ambos son las mejores herramientas que se han crea- 
do para programar en código máquina. Incorporan 


la posibilidad de trabajar con Microdrives. Manual en 
castellano. 

HISOF PASCAL. El único compilador de Pas- 
cal creado para el Spectrum. Su calidad y prestacio- 
nes son realmente profesionales. Compatible con Mi- 
crodrives. Manual en castellano. 


DISPONIBLES EN TIENDAS ESPECIALIZADAS, O POR 
CORREO EN VENTAMATIC 


Por favor, cumplimente el siguiente cuestionario. Nos permitirá mantenerle 
informado sobre nuevos productos y, al mismo tiempo, nos ayudará a pres- 
tarle un mejor servicio. 


¿Dónde conoció la existencia de este libro? 


CITROVIETA: ¿CUA visa Dira rs AS ARES 
O A través de un amigo. 

O En mi tienda informática. 

O Otros. ¿Cuál? 


..... +... +... . ...... 0... 0... . +... . <<. <<... <<. .<s.< «<<. .«<s.«<s.<s e... <<... .<.<s. <<. .<.«<.<s.ss. 


¿Qué revistas suele comprar? 


¿Qué edad tiene? 


O 10-15 
O 16-19 
O 20-24 
O Más de 25 


¿Cuál es su opinión de este libro? 


Rd 


| ¿Desea recibir información periódica sobre nuevos productos de Ventamatic? 


| O Sí U No 
| ¿Qué tipo de programas son más interesantes para Ud? 


NOM. usar A AR e 
DOMINIOS: cirio AAA ASA 
Población: .......... PTOVINCIAS uisiciisss Código Postal: .......... 


(BUOJ9c)) SESOY 
“EGZ “SPOYyy “PPAY 


JINLVWIAVINIA 


Este libro presenta 18 estupendos programas completos 
que aprovechan con ventaja las posibilidades 
gráficas y sonoras del ZX-SPECTRUM, 
así como la práctica totalidad de la memoria disponible 
en el modelo de 16K por lo que, por supuesto, 
también funcionan en el de 48K. 


Todos los programas están escritos en BASIC, 
para que el usuario pueda entenderlos mejor, modificarlos 
y mejorarlos a su gusto y, en suma, practicar con ellos. 


El autor no se limita, como en otros libros 
de temática parecida, a dar simplemente los listados 
de los programas, sino que además, y esto es lo que 
le diferencia principalmente del resto, 
ofrece completa y exhaustiva información sobre 
el planteamiento y la realización de cada programa: 
lista de variables, estructura, funcionamiento, comentarios 
y sugerencias. 


Este hecho lo hace particularmente interesante para todos 
los usuarios que no quieren simplemente limitarse 
a transcribir listados, sino que además quieren aprender 
a crear sus propios programas de juegos. 


Josep-Oriol Tomas i Huyn-Quan-Chiéu 


Colección Ventamatic 


